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Almost anything new and different can be exciting for a time. And 
almost all excitement wears off after a while. For many people, own¬ 
ing their own microcomputer is such an experience. At first there 
seem to be thousands of things to do to make life easier and more 
interesting. For many people, however, the magic fades and the com¬ 
puter becomes simply a checkbook balancer and game player if it 
doesn't actually end up in the closet. The intent of this book is to 
provide a new infusion of excitement about what you can do with 
your home computer. 

With one exception, the programs in this book are quite short, 
easy to copy, and easy to modify. The text will suggest ways you can 
tailor the programs for your own use—for party games, data analysis, 
school work, or learning to program. The 411/2 things to do range all 
the way from a dating program that will match you with a potentially 
congenial date to a mini-word processor, a Dungeons and Dragons 
dice rolling program, an excuse generator, and strategy and music 
games. It includes practical programs such as a guitar tuner and chord 
teacher, a metric converter, and a comparison shopping program. It 
also contains party games and other activities that you can do with 
your friends. Underlying all of these programs are the ideas that you 
can modify a program and change it to suit your purposes and that 
programming can be fun and lead to fun as well. 

The central part of the book provides you with a number of 
simple computer utilities. The most common utilities in our lives are 
gas, electricity, and the telephone. They are utilities in that they can 
be used in many different ways. They provide the energy or the 
instrument and you determine the particular use. The same thing is 
true of computer utilities. They provide a form that you can use in 
many different ways with a simple input of your own. Thus, the 
balloting program in this book can be used for club elections, picking 
the top ten records, doing personal preference polls, etc. The utility 
gives you the structure and you provide the content. The same is true 
of the graph generating program. It can be used to measure sales and 
inventories, to compare school grades, to illustrate the results of 
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science experiments, or for opinion surveys. The text will suggest 
some applications for the utilities and show you how to list and 
change the programs in the book. You should feel free to go beyond 
the text and create your own modifications, and, maybe, build your 
own utilities. 

All of the programs in this book fit on one disk. With the 
exception of the program for the Dozo game, they are easy to copy and 
take up less than two pages of text. It would make sense for you to 
copy and save on disk those programs you want to use or modify. 
Copying the same program more than once is a bore and you can 
always save your original copy as well as your modifications. After 
you copy a program, however, run it several times to make sure that 
some simple copying error didn't slip in. Try all the options the pro¬ 
grams offer. Play to win, to deliberately lose, and try any way you can 
to trick the program into bombing. We've done this ourselves and are 
confident that the programs work. But, human error always has a way 
of creeping in. We have been careful to eliminate ours and believe it 
makes sense for you to take the extra time to check your work. 

Finally, for the 1/2 of a thing you can do with your computer. 
Actually it is not one-half of a thing but many halves—many ideas 
that you can turn into programs as you become comfortable with 
BASIC. These final ideas are just starters, teasers, suggestions of ways 
in which you can focus the use of your programming skills on creat¬ 
ing programs others will enjoy using. 
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PART 1 

Word Pfay 
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JLhe programs in this section all fool around with words. They 
range from an anagram generator to an excuse generator and include 
word hunt puzzles, a sentence scrambler, and even an arcade-type 
game that will teach you how to use the keyboard. Many of the 
programs are easily modified and we encourage you to copy them and 
change them in any way you like. 
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Joystick Word Hunt 

You probably have seen many word hunt puzzles. They consist of a 
square or rectangle of letters in which a number of words are hidden 
either vertically, horizontally, or diagonally, and backwards and for¬ 
wards. Here is a very simple word hunt grid and the list of words 
hidden in it: 


hidden words: last, cat, rat 
curl, pot, coat 


hidden word grid: 
c o r 1 
o a a r 
a s t u 
tope 


The object of the word hunt is to find the words on the list hidden in 
the grid. 

The program for Joystick Word Hunt allows you to choose any 
15 words of up to 15 letters long. Then, the computer automatically 
generates a word grid for you or your friend to solve. Here is a sample 
list and the grid the computer generated. You'll find that even if you 
chose the words yourself it is not easy to find them all in the grid. 




****** JOYSTICK WORD* HUNT ****** 


:::: 

Hi: 

:::: 

2:2: 

22:2:2: 

::::::: 

22::::: 

::i: 

::::::: 

iiii 

Hi:;;; 


± . 

2 . 

3 . 

4 . 

5 . 

6 . 

7 . 

8 . 

9 . 

10 . 
JLJL . 
12 . 
JL3 . 
14 . 
J.5 . 


LOME 

HARE 

HATE 

FATE 

FAT 

THIN 

CHIN 

FUN 

FUNNY 

HUMOR 

HUMDRUM 

DRUM 

CRUMB 

THUMB 

DUMB 


QGBULKJGECCSWUO 
ZLERIPSEACHUJCW 
JVVJSKTNOABCICQ 
OWORBAIHRMRMKGZ 
MHLNHHAENBUGUBE 
ZCIOCT QETDWTRMRE 
ZYMLEYDPOSQUDTC 
ECMZNFNPEIDTAHA 
IMWNAUIYLHKFPUH 
MC1UOFGXEMUHFTMU 
OFUNFFNHXMRFLBM 
RTTGCWAKCOQUILD 
JULQHNETJRHOLNR 
TAREIRSTOECSOUU 
QLBBNORYQZNSAJM 


Hill H HI Hi 
! i !!! Ill 

• I Hi it: 

li ill hi 
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i 1 ! ... . 

i i ill lii 
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You need a joystick in port 1 to play this game. Move the 
flashing cursor on the game board to the first letter of any word you 
find. Press the joystick button. A message will appear: WORD 
NUMBER. Type only the number that corresponds to the word you've 
found. Press RETURN. If you've found the correct match, the word 
will appear in inverse characters on the grid. Keep playing until you 
find all 15 original words. 

If you want to play another game, press the [FI] function key on 
the right of your Commodore keyboard. 


10 REM *** JOYSTICK WORD HUNT *** 

100 S0=54272:CR=49152:CY=CR+10S CX=CY+1:8 
0SUB1000:P0KE53280,O:P0KE532S1,0 
110 P0KEDS0+5,OS PQKESO+6,240:PRINTCHR*(1 
47)CHR$(5)S G0T0700 

200 G0SUB800SF0RM=0T014:L=LEN(W*(M))SXT= 
2S YT=6+MS G0SUB900:PRINTM+13 CHR$(157)3"-" 
210 XD=INT(RND(1)*3-1)SYD=INT CRND<1)*3-1 
)SIF XD=0ANDYD=0THEN210 

220 X=INT(RND(1)*(15-(ABS(XD)*(L-l))))SI 
FXD<0THENX=14-X 

230 Y=INT(RND(1)*(15-(ABS(YD)*(L-l)))):I 
FYD< OTHENY=14-Y 

240 XP=XSYP=YSFORT=1TOLSIFXP<00RXP>140RY 
P<OORYP>14THEN21O 

250 XT=22+XPS YT=6+YP: G0SUB900SIFK< >32AND 

K+64< >ASC(MID*(W*(M),T,1))THEN210 

260 XP=XP+XDS YP=YP+YDS NEXT:X(M)=X:Y(M)=Y 

:xd(M)=xd:yd(M)=yd:fort=itol 

270 XT»22+XS YT=6+Y:G0SUB900:PRINTMID*(W« 

(M),t, i): x=x+xd:y=y+yd:next:xt=7:yt=6+m 

280 G0SUB900:PRINTW*(M):NEXT 

290 F0RX=0T014:F0RY«0T014:XT«22+XS YT«6+Y 

:G0SUB900 

300 IFK aa 32THENPRINTCHR* (INT (RND (1) *26) +6 
5) 

310 NEXT:NEXT:x=o:y=o:ww=o 

320 Z=PEEK(56321)AND15:IF(PEEK(56321)AND 

16)=0THEN500 

330 IFZ>8ANDZ<12THENX=X-l:IFX<0THENX=14 
340 IFZ>4ANDZ<8THENX=X+l:IFX>14THENX«0 
350 IFZ=100RZ=140RZ=6THENY=Y-l:IFY<OTHEN 
Y=14 

360 IFZ=90RZ=130RZ=5THENY=Y+l:IFY>14THEN 
Y=0 

370 IFZ<>15THENP0KES0+4,33:P0KES0+4,0 
380 XT=X+22:YT=6+Y:G0SUB900:KO=K:IFKO<12 
8THENPRINTCHR*(18)3 CHR«(KO+64) 

390 IFKO >127THENPRINTCHR*(KO—64 > 
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400 G0SUB900:IFKO>127THENPRINTCHR*(18)5 
410 PRINTCHR*((K0AND127)+64):G0T0320 
300 XT®4:YT=4S G0SUB900:P0KE198,O:INPUT M W 
ORD NUMBER"5G*:G=VAL(G*)-1:IFG=-1THEN500 
310 G0SUB900:PRINT" M S 

IFG >14THEN320 

320 IFX(G)< >XORY(G)< >YTHENG0T0320 

530 XP=X:YP=Y:F0RT=1T0LEN (W*(G)):XT=22+X 

PS YT=6+YPS G0SUB900 

540 PRINTCHR* (18)5 MID* <W*(G),T,1)S S XT=6+ 
TS YT-6+GS G08UB900S PRINTMID* <W*(G),T,1) 
550 XP=XP+XD(G)S YP=YP+YD(G)S NEXT:XT=4:YT 
=4SX(G)=-lS WW=WW+1SIFWW<15THEN320 
360 XT=4:YT=4SG0SUB900:PRINT"YOU DID IT! 
PRESS < F1>" 

570 GETA* SIFA*<>CHR*(133)THEN570 
580 RUN 

700 DIMW*(14),X(14),Y<14),XD(14),YD(14)S 

G0SUB800SXT=2:YT=5:G0SUB900 

710 PRINT"ENTER FIFTEEN WORDS.F0RT=0 

T014S XT«2S YT=T+7S G0SUB900 

720 PRINTT+15 CHR*(157)". " 5 TAB(7)S:INPUTW 

*(T)SIFW*(T)=""THENT=T-1S NEXT 

730 W*(T)“LEFT*(W*(T),15)SNEXT:XT=2:YT=5 

:G0SUB900:PRINT"ARE your WORDS CORRECT?" 

740 GETA*:IFA*=""THEN740 

750 IFA*="Y"THEN200 

760 RUN 

800 PRINTCHR*(147):PRINT:PRINT" ** 

* JOYSTICK WORD HUNT ***":RETURN 

900 POKECX,XT:POKECY,YT:SYSCR:AD=YT*40+X 

T+1024:K=PEEK(AD):PGKE19S,O:RETURN 

1000 F0RBYTE=CRT0CR+9:READA:POKEBYTE,A:N 

EXT 

1010 P0KES0+24,15:POKESO+1,100:RETURN 
1020 DATA24,174,10,192,172,11,192,76,240 
,255 



Anagrams 


^ An anagram is a scramble of letters. For example, the word and has 

W the following anagrams: 
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nad 

nda 

adn 

dna 

dan 

Sometimes the anagram of a word gives rise to other words. For exam¬ 
ple, consider these two sets of anagrams: 

word: top 

anagrams: pot 
pta 
tpa 
opt 
otp 

In this case, two anagrams of "top" are also words—"opt" and "pot." 


word: 

meat 


anagrams: 

team 

eatm 


tema 

eamt 


tmea 

emat 


tmae 

emta 


tame 

etma 


taem 

etam 


aemt 

meta 


aetm 

mate 


amet 

maet 


amte 

mtae 


atem 

atme 

mtea 


Of the 24 variations, only three and at most four (if you accept meta 
as a word) make up words. An interesting and, so far as we know, 
unsolved word problem is whether there is a four letter word all of 
whose anagrams make up other words. You could easily write a com¬ 
puter program that could generate all the anagrams of any given word 
using string variables. However, the program here is more of a games 
form. You type in any word and the computer scrambles it. Then ask 
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a friend to try to unscramble it. The computer will keep score and tell 
your friend when he or she has the correct unscrambling. 
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10 REM *** ANAGRAM *** 

100 PRINTCHR* <147):PRINT:PRINTS PRINT" 

*** ANAGRAMS ***" 

110 G0SUB300SPRINTSPRINTSPRINTSPRINT"ENT 
ER YOUR WORD... M SPRINTS INPUTA* 

120 PRINTCHR* <145)5CHR*(145)5CHR*(145)5 S 
IFA*=""THENRUN 

130 PRINT"TRY TO SOLVE THIS ANAGRAM..."S 
PRINT 

140 L®LEN(A$)S DIMW(L)S F0RT=1T0L 

150 R=INT(RND(1)*L> +1SIFW(R)=-lTHEN150 

160 W (R) =-l S B*=B*+MID* (A*, R, 1) S NEXT 

170 PRINTB*5" "S G0SUB300S PRINTTAB(20-L/ 

2)5 

180 FORT =1TOLSPRINTCHR*(164)5= NEXTS GOSUB 
350 

190 B*=" " S INPUTB$S IFB*=" "THENPRINTCHR* (1 
45)5CHR«(145)SG0T0190 
200 FORT®1TOL 

210 IFMID*<A$,T,1)=MID*<B*,T,1)THENGOSUB 
300SPRINTTAB(19-L/2+T)5 MID* <A*,T,1) 

220 NEXTSIFA*=B*THEN250 
230 G0SUB300SG0SUB350SPRINT" 

"5 CHR* <145) 

240 GOTO190 

250 G0SUB300S G0SUB350S PRINTS PRINTS PRINT" 
THAT'S IT!" 

260 GETA* 5 IFA*=""THEN260 
270 RUN 

300 PRINTCHR* <19)S PRINTS PRINTS PRINTS PRIN 
TS PRINTS PRINTS PRINTS RETURN 
350 PRINTS PRINTS PRINTS PRINTS PRINTS PRINTS 
PRINTS PRINTS RETURN 
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Sentence ScrambCer 


This program will take a sentence and scramble all of the words in it. 
For short sentences, the unscrambling is quite easy. For example: 
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walk, took a I 


quite easily unscrambles into: 

I took a walk. 

Try this one, however: 

at time the You stars, tell looking by the can 

When you type in the program be very careful about capitals, punc¬ 
tuation, and spacing. The computer responds to all of these different 
aspects of writing. Spaces between words are particularly crucial in 
mixing up sentences because sensing spaces is the only way the 
computer can tell where a word ends. The computer cannot read, at 
least yet. A blank space is just another symbol to it, one which, in this 
program, indicates where a unit to be scrambled ends. 

The main functions used in this program are LEN(A$) and 
MID$(A$,X,Y). LEN(A$) tells you the length of any word you store in 
the computers memory. For example, in Commodore BASIC, if A$ is 
the word "FINE" then 

LEN(A$)=4 

The function MID$(A$,X,Y) lets you print out any letter or sequence 
of letters in A$. Thus, using the same example: 

MID$(A$,1,1)=F 
and MID$(A$,2,2)=IN 

Here is a simple educational program illustrating the use of LEN and 
A$: 

10 DIM A$(26),B$(1) 

20 A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

30 PRINT "HOW MANY LETTERS ARE IN THE ALPHABET? 

40 INPUT X 

50 IF X= LEN (A$) THEN PRINT "GOOD. NOW TRY THIS:" 

60 LET Y=INT(RND(1)*26)+1 

70 PRINT "WHAT LETTER COMES ";Y;"th in the alphabet?" 
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80 INPUT B$ 

90 IF B$=(A$,Y,1) THEN PRINT “RIGHT.” 

100 IF B$ < > MID$(A$,Y,1) THEN PRINT “I’M SORRY YOU 
MISSED.” 

This program checks the length of A$ and matches it with the 
number you put in for X. Then it picks a random position out of A$ 
using the Y variable and asks you which letter corresponds to that 
position. This is just a simple use of LEN and MID$. Play with these 
functions and look at your BASIC Reference Manual for more infor¬ 
mation on how to use them. 

Now here is the scrambled sentence program: 
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10 REM *** SENTENCE SCRAMBLER *** 

100 CR=49152:CY=CR+10:CX=CY+1:GDSUB500 
110 PQKE53280,0:P0KE53281,0:PRINTCHR*(14 
7)5 CHR$(5) 

115 DIM A(50),M(50),A*(50),B*(50):P0KE54 
296,15:P0KE52277,0:P0KE54278,240 
120 print:print:PRINT" *** SENTENC 

E SCRAMBLER ***" 

130 x=2:y=7:gosub400:print"enter your se 
NTENCE... PRINT: INPUTS*: PRINT:PRINT 
140 L=LEN(S*): c=o: p=i:ee=o:fort=itol:b*( 
L) =" 11 : NEXTT 

150 FQRT=1T0L:IFMID*(S*, T,1)=" "THEN200 
160 Z*=MID* (S$, T, 1) : IFZ*=". "QRZ*=" ! "ORZ* 
="?"THENEE=1: G0T0200 
170 NEXTT:T=T-l:EE=l 

200 L(C)=T-P+1: A*(C)=MID*(S*,P,T-P+l>:IF 

EE=0THENC=C+1:P=T+1:NEXTT 

250 L(C)®L(C)+1:FORT=OTOC 

260 R=INT (RND (1> *(C+l)> +1SIFB* (R> «*"#"THE 

N260 

270 B*(R)="*":M(R-1)=T:NEXTT 

280 X=2:Y=7:G0SUB400:PRINT H TRY TO UNSCRA 

MBLE THIS_":PRINT:A*(C)=A*(C)+" " 

290 Y=9:G0SUB600:X=2:G0SUB400:FORT=OTOC: 

PRINTA*(M(T))5:NEXT 

300 X=2:Y=16:G0SUB400:INPUTB* 

305 IFB*< >S*THENX=15:Y=21:G0SUB400:PRINT 

"TRY AGAIN":Y=16:G0SUB600:G0T0300 

310 x=14:y=21:gosub400:print"you did it" 

:P0KE54276,33: F0RT=50T080STEP5 

320 P0KE54273,T:F0RJ=1T0200STEP50:PQKE54 

272,J:NEXTJ:NEXTT 

330 P0KE54276,O 

340 GETK*:IFK*= »"THEN340 
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350 RUN 

400 POKECX,X:POKECY,YSSYSCR:RETURN 
500 FORBYTE=CRT0CR+9:READA:POKEDYTE,A S NE 
XT:RETURN 

510 DATA24,174,10,192,172,11,192,76,240, 
255 

600 X^l:60SUB400:PRINT" 

M S RETURN 



Aiphawiz 

This is the basic shoot 'em up arcade game in its simplest form. The 
game displays the alphabet at the bottom of the screen. A target 
appears above one of the letters at the top of the screen. You have to 
press the correct letter to hit the target. The letters have a small 
amount of fire power and you will see your hits and misses on the 
screen. You get five points per hit and lose five per miss. 

If you want to play a little code game, take a look at the PRINT 
statement at line 120. It tells the computer to print out the alphabet in 
order at the bottom of the screen. Now, if you changed that line using 
a simple shift code as follows: 

ABCDEFGHIJKLMNOPQRSTUVWXYZ 

ZABCDEFGHIJKLMNOPQRSTUVWXY 

then, if you pressed A the Z would shoot; if you pressed B the A 
would shoot, etc. Your shooting would then be in code. After a while 
you could probably figure out the structure of the code. 

10 REM *** ALPHAWIZ *** 

100 S0=54272:CR=49152:CY=CR+10:CX=CY+1:H 
S=—9999:Q0SUB500 

110 P0KE53280,11:P0KE53281,O:PRINTCHR*(5 
)5 CHR$(147)S TI$="000000“:S=0 
120 PRINTCHR*(5):XT*=7:YT=21:G0SUB400:PRI 
NT"ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
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130 TX“INT(RND(1> *26)+7:F0RT=0T06S TX <T>- 

RND<1)*6—3+TXS TY(T)=RND(1)*6+1S NEXT 

140 XT»TX:YT=4:G0SUB400:PRINTCHR$(166):X 

T=3:YT=23:G0SUB400:B0SUB450 

150 IFTI>3600THEN300 

160 GETA$:IFA$=""THEN150 

170 XT®ASC(A*):IFXT<650RXT>90THEN150 

180 XT=XT-58:P0KES0+4,129:F0RYT=20T00STE 

P-1:P0KES0+1,YT*2+5SG0SUB400 

190 PRINTCHR*(28);CHR* <122)5 CHR$(5);SIFY 

T<20THENPRINTCHR$(157)5 CHR$(17)J" " 

200 IFYT<>40RXT<>TXTHENG0SUB400:NEXT:PRI 
NT" ":PQKESO+4,0:POKE198,0:S=S-5:GOTO140 
210 P0KES0+4,128:POKESO+1,3:P0KES0+4,129 
:PRINTCHR*(129):F0RT=0T06:XT=TX(T) 

220 YT=TY(T):6QSUB400:PRINTCHRfc <113):NEX 

t:pokeso+4,128:fort=oto6:xt=tx <T) 

230 YT=TY(T):G0SUB400:PRINT” ":NEXT:S=S+ 
5: XT=TX: YT®4: G0SUB400: PRINT* 1 **: GOTO 120 
300 IFS >HSTHENHS=S 

310 XT*17:YT=23:G0SUB400:PRINT"*** GAME 
OVER ***":PRINT" *HIGH: I( 5HS5TAB(17)S 
320 PRINT" PRESS <F1>"; 

330 BETA*:IFA$<>CHR*(133)THEN330 
340 G0T0110 

400 POKECX,XT:POKECY,YT:SYSCR:RETURN 
450 PRINT"SCORE:"?S5CHR*(157)" “:RETURN 
500 F0RBYTE=CRT0CR+9:READA:POKEBYTE, A : NE 
XT 

510 FORT=S0T0S0+24:POKET,O:NEXT:P0KES0+2 
4,15:P0KES0+5,10:POKESQ+6,9:RETURN 
530 DATA24,174,10,192,172,11,192,76,240, 
255 
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Creative Name Macfune 

Did you ever wonder how people come up with names for computer 
games or businesses or products? Most of the process is free associa¬ 
tion and fiddling around with words. The computer can often do this 
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as well as people, especially if you make your original lists of words 
interesting enough. This program generates some names you might 
like to use one day. Some of them are COSMOS WEAVER, CHASM 
SPINNER, and VAULT PRODUCER. If you look at lines 550 and 590 
of the program youll see the DATA statements that provide the 
words for the computer to play with. You can change these with any 
lists you have so long as you remember to separate the words by a 
comma. Line 110 reads a word from the list at 550 and line 120 reads a 
word from 590. The combination is what you see printed out. The 
READ ... DATA .... statement in BASIC allows you to play around 
with lists of data. 

Now try our names and add some twists of your own. 

1 REM *** CREATIVE NAME MACHINE *** 

2 REM 

100 CR=49152:CY=CR+10:CX=CY+1:G0SUB500:P 
0KE53281,11SPRINTCHR*(5):DIMA*(1,100) 

110 READA*(0,G1):G1=G1 + 1:IFA*(0,Gl-1)<>" 

END OF LIST"THEN110 

120 READA*(1,G2):G2=G2+1:IFA*(1,G2-1)< >" 

END OF LIST"THEN120 
130 B1=G1-1:G2=G2-1 

140 P0KE53280,INT(RND(1)*16)S PRINTCHR*(1 
47) 

150 A*=A*(O,INT(RND<1)*G1))+" "+A*(1,INT 
(RND(1)*G2)) 
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160 POKECX,20—LEN(A$)/2:POKECY,10:SYSCR: 
PRINTA* 

170 BETA*:IFA*=" M THEN170 
180 SOTO140 

SOO F0RBYTE=CRT0CR+9:READA:POKEBYTE, A: NE 
XT 

510 RETURN 

530 DATA24,174,10,192,172,11,192,76,240, 
255 

540 REM *** WORD 6R0UP #1 *** 

550 DATADUNBEON,VAULT,CRYPT,CAVERN,ADVEN 

TURE,WORLD,ENCOUNTER,SPACE,CHASM 

560 DATAUNIVERSE,M1CROCOSM,COSMOS 

570 DATA END OF LIST 

580 REM #** WORD SROUP #2 *** 

590 DATAMACHINE,WEAVER,SPINNER,VENTURE 
600 DATABUILDER,SYNTHESIZER,INVENTOR,CRE 
ATOR,COMPOSER,PRODUCER 
610 DATA END OF LIST 
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Excuse Generator 


Did you ever wish you had an automatic excuse generator that would 
cover you when you were late for work, forgot to do homework, or 
wanted to get out of a party or meeting? Well, here's an attempt at one. 
Basically, this program consists of an empty letter form in which you 
fill in the particulars. If you don't like the way we've done it, you 
change all of the PRINT statements in the program or add some new 
ones of your own. The program is a phoney personal letter generator. 
You can use it to create personalized business letters, invitations to 
parties, etc. Our excuse for including it in the book was to show what 
a letter or response form is like and how easily it can be changed on a 
computer. 


IS 





111 


DEAR PALLID, 


i | i i 1 !|li 


I ' M VERY SORRY THAT I DON 

" T HAVE 

1 Ii« •• HH 

1 s hi ; i » 

1 ! If! s ilis 

rs 

THE TIME. YOU SEE, MY 


1 * 


BEST FRIEND LOST IT 


1 l si: 5 !!!f 

\ i in i utt 


MHILE I PICKED FLEAS FROM 

HIS COAT. 

: 55: i slit 

1 j jlj i Hi! 

rs 

GEE, I SURE AM SORRY. I 

WON'T LET 

:::: 

, •; 


IT HAPPEN AGAIN. I PROMISE. 

ji 1 



: 1 ill 1 ilii 


SINCERELY, 


!i! I fi! 


LIVID 


s 5 III 5 1111 
:::: 

: s ;)] : :::: 

rN 


m i 1 «i •« : «!»'*» j|if 

:::::::::::::::::::::::::::::::::::::::::::: 

isjii't : 

si His 5 Hi i |5 i 

r\ 


liisisi 5 555 5 issi 



10 REM *** EXCUSE GENERATOR *** 

100 PRINTCHR$<147)2 PRINTS PRINT" 

EXCUSE GENERATOR" 

110 DIME*(2,7)SF0RT=0T02SF0RU=0T06SREADE 
* <T, U) 2 NEXTS NEXTS DEFFNR< X)=INT(RND(1)#X) 
120 PRINTS PRINTS PRINTS INPUT"YOUR NAME"*A 
*2IFA*=""THENA*="ME" 

130 PRINTS PRINTSINPUT"PERSON TO GET EXCU 
SE"* B*SIFB*=""THENB*="TEACHER" 

140 PRINTS PRINTS INPUT"ITEM TO BE EXCUSED 
"S C* SIFC*=""THENC*="HOMEWORK" 

150 PRINTCHR*<147)SPRINTSPRINT"DEAR "*B* 
S" s "SPRINT 

160 PRINT"I'M VERY SORRY THAT I DON’T HA 
VE"SPRINTSPRINT"THE ";C*5 M - YOU SEE, MY" 
170 PRINTSPRINTE*(0,FNR(7))5" ";E*(1,FNR 
(7))SPRINTSPRINT"WHILE I "5E$ <2,FNR<7)) 
180 PRINTSPRINT"GEE, I SURE AM SORRY. I 
WON’T LET"SPRINT 

190 PRINT"IT HAPPEN AGAIN. I PROMISE."SP 
RINT S PRINT S PRINT"SINCERELY,"S PRINT 
200 PRINTA* 

210 GETA$SIFA*=""THEN210 
220 RUN 

500 DATADOG,DAD,BABY BROTHER,OLDER BROTH 
ER,CAT,BEST FRIEND,BOSS 

510 DATAATE IT,USED IT FOR KINDLING,SLOB 
BERED ALL OVER IT,TORE IT TO PIECES 
520 DATASHINED HIS SHOES WITH IT,STOLE I 
T,LOST IT,PICKED FLEAS FROM HIS COAT. 

530 DATAWAS ON A TRIP.,CHANGED HIS DIAPE 
RS.,WASN’T WATCHING.,WAS ASLEEP. 

540 DATAWAS FEEDING HIM CAT FOOD.,STOOD 
BY HELPLESSLY. 




























































































































































































































































PART 11 

Number viay 


T 

JLhis section contains several number games you may not have 
seen before as well as some conversion and sorting programs you can 
use for many different purposes. However, the first program in the 
section is a challenge that comes from Marlyn Bums, the author of 
the l Hate Math Book and Math for Smarty Pants. We translated her 
challenge into computer form. It can be fun to do similar things by 
taking books on mathematical games and recreations and giving 
those challenges a computer twist. Often, the computer can make the 
game more powerful because it can check challenges quickly, provide 
hints, tally scores, and set up timing devices. 
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The $1.00 Word Chaftenge 

Here is the challenge in Marlyn Bums own words: 

"Excellent" is a $1.00 word. Mathematically speaking, that is. So are 
"friendlier" and "grumpy" and "elephants" And so is "discipline," which 
is what it takes to find more of these $1.00 wonders. To find out how 
much a word is worth, you give each letter a cent value: a=$.01, 
b=$.02, c=$.03, and so on up to z=$.26. Then you add the value of each 
letter in a word. 

Check for yourself to make sure the words given above really 
are worth exactly $1.00. Then you're on your own. How about starting 
with your first name? Is it worth $1.00? What about your friends' 
names? Or the town or city you live in? 

The $1.00 word fever has been spreading throughout the United 
States. To date over 500 $1.00 words have been found by addition- 
loving kids across the country. Some have been writing $1.00 
sentences—sentences in which every word is worth $1.00. Some 
examples: "Prevent inflation." "Whenever Henrietta whistled, thirty 
trembling costumed elephants merrily performed." 

Of course, dedicated $1.00 word zealots have brought their 
computers into the search, programming them to calculate the value 
of whatever word they input. Try it. It takes all the drudge out of the 
search. 

Some hints may be useful for getting you started. There is one 
Halloween word that is worth $1.00 (It's not Halloween; that's only 
worth $.95.) There's one Thanksgiving $1.00 word, as well as one 
astrological sign, and one United States coin. There are at least two 
United States cities—one of them in Wisconsin, and the other in both 
Oregon and Maine. To date, one five-letter $1.00 word has been found. 
No one, however, has submitted a word with four letters. (Is it possi¬ 
ble to have a four-letter word worth $1.00? 

There's a beverage that is illegal for minors to drink that's worth 
$1.00, though it sometimes costs more than that to buy in restaurants 
and bars. There are several zoo animals that are $1.00 words, and at 
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r\ 


least one underwater creature. Something that rarely strikes twice in 
the same place, so they say, is also a $1.00 word. And there is a 
number that is less than 100 that is worth $1.00 when written as a 
word. 


This program will check to see if your words are $1.00 words. If 
your word doesn't quite make a dollar, the program will also tell you 
how much it is worth using the coding system where A is a penny, B 
two cents, etc. 


10 REM *** ONE-DOLLAR WORDS *** 

100 PRINTCHR* <147) 

110 PR1NTTAB(7)S"THE ONE-DOLLAR WORD MAC 
HINE" 

120 PRINT:PRINT:INPUT"PLEASE ENTER YOUR 
WORD";A*:IFA*="“THEN120 

130 V=0:F0RT=1T0LEN <A*>:IFMID*(A*,T,1)<" 
A"ORMID*(A*,T,1)>"Z"THEN120 
140 V=V+ASC(MID*(A*,T,1))-64:NEXT 
150 IFV=100THENPRINTA*J“ IS A ONE-DOLLAR 
WORD!":B0T0120 

160 PRINTA*}" IS WORTH"5V5"CENTS.":SOTO1 
20 


If you want to make a $2.00 word machine or a half-dollar word 
machine, all you have to do is change the IF-THEN and PRINT com¬ 
mands on line 150. Thus, the following changes in line 150 will give a 
Fifty Cents Word Machine: 

150 IF V=50 THEN PRINT A$; "IS A FIFTY CENT 
WORD!":GOTO 120 



Division Homeworker 

Did you ever get frustrated when you were asked to "show the work" 
when you were doing math homework? After all, a calculator or com- 
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puter could do the work. Why bother with the tediousness of long 
division anymore? There is even a rumor that long division is a device 
created by teachers to torture their students with boredom. We've 
come up with a solution to the long division nightmare. Here is a 
program that not merely gives you the answer to a long division 
problem, remainder and all, but also "shows the work." We hope it will 
save you hours of boredom that could be used in more productive and 
pleasurable activity. 

The program has another value. It will take you step by step 
through long division problems and can be a useful way to learn the 
process. 


DIVISION 

HOMENORKER 


6 © r- 3 0 


34 9 23456 
20-I 



DIVIDEND: 22345G 

DIVISOR: 234 


III Hill 

• ?* • 




ih-i-'n' 


j 


1 REM *** DIVISION HOMEWORKER *** 

2 REM 

100 CR=49152S CY=CR+10:CX=CY+1S G0SUB600:X 
=24:Y=4 

110 P0KE53280,9:P0KE53281,0:PRINTCHRS(14 

7);CHRS(5):POKECX, 2:POKECY,18 

120 PRINT" DIVISION":PRINT" HOMEWORKE 

R":syscr:input "dividend";ns 

130 N=VAL(NS):IFN=OORN>999999THENRUN 
140 PRINT:INPUT" DIVISOR";DS:D=VAL(DS) 

:IFD=OORD >NTHENRUN 

150 POKECX,X:POKECY , Y:SYSCR:PRINTCHRS < 98 

);CHRS(157)5CHRS(145)5CHRS(176)5 

160 F0RT=1T0LEN(NS):PRINTCHRS(99)5:NEXT: 

POKECX,X-LEN(DS):SYSCR:PRINTDS 

170 POKECX,X+l:SYSCR:PRINTNS:G0SUB400:NS 

=1:qp=o:bp=o:ff=o:as=lefts(ns,i) 

180 NT=VAL(LEFTS(NS,NS)):IFNT= >DTHEN220 
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190 QP=QP+1:IFFF=1THENPOKECX,X+QP:POKECY 
,Y-2:SYSCR:PR1NT"0":B0SUB400 
200 NS=NS+1:IFNS>LEN(N*)THENR=NT:B0T0500 
210 A*=LEFT*(N*,NS):POKECX,2+X+QP-LEN(A* 
):POKECY,Y+BP:SYSCR:PRINTA*:SOTO180 
220 FF=1:QT=INT(NT/D):R=NT-D*QT:QP=QP+1: 
POKECX,X+QP:POKECY,Y-2:SYSCR 
230 PRINTRIBHT*(STR*(QT),1):B0SUB400 
240 T=»1+X+QP-LEN(STR*(D*QT>) :POKECX,T:PO 
KECY,Y+BP+1:SYSCR:PRINTQT+D:B0SUB400 
250 POKECY, Y+BP+2: SYSCR: PRINT” ,, ;:F0RT=1 
TOLEN(STR*(QT*D))-1:PRINTCHR*(99);:NEXT 
260 POKECX,1+X+QP-LEN(STR*(R)):POKECY, Y+ 
BP+3:SYSCR:PRINTR:B0SUB400 
270 IFNS=LEN(N*)THEN500 

280 T*=RISHT*(STR*(R),LEN(STR*(R))-1):T* 
=T*+MID*(N*,NS+1,1) 

290 POKECX,2+X+QP-LEN(STR*(R)):POKECY,Y+ 
BP+3:SYSCR:PRINTT*:A*=T*:60SUB400 
300 T*=RISHT*(STR*(R),LEN(STR*(R))-1):T* 
=T*+MID*(N*,NS+1,6):N*=T* 

310 NS=LEN(A*):BP=BP+3:S0T0180 
400 BETZ*:IFZ*="“THEN400 
410 RETURN 

500 POKECX,X+QP+2:POKECY,Y-2:SYSCR:PRINT 
"R";r:60SUB400: run 

600 F0RBYTE=CRT0CR+9:READA:POKEBYTE,A:NE 
XT 

610 RETURN 

630 DATA24,174,10,192,172,11,192,76,240, 
255 


9 

KaBata Name Game 

According to the Kabala, a mystical Jewish treatise about the rela¬ 
tionship between numbers, letters, and things spiritual, every word 
has a numerical value which determines its sacredness and quality. 
This is especially true for names. We've turned the name/number 
equivalence into a game. Each letter of the alphabet is given a value 
from 1 to 26, A being 1 and Z 26. The names displayed in the game 
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have a total value which consists of the sum of the values of their 
letters. Thus, Abe has a value of 1+2+5=8. (Can you think of a name 
with a lower value than Abe?) 

The game works in the following way: A name is displayed on 
the top of the screen and below it four other names are displayed. You 
have to figure out which one of the four has the same value as the 
first name displayed. 

There is a strategy you might use to help you eliminate some 
names immediately. Look at the original name and see how many of 
its letters are skewed toward the front of the alphabet, how many are 
in the middle, and how many at the end. That should give you an idea 
of whether the value of the whole will be low, medium, or high. For 
example, it is clear that Abe will have a low value and Val a much 
higher one. With this first take, you can scan all the names and 
eliminate those whose values clearly don't match up. 


10 REM *** KABALA NAME GAME *** 

100 S0=54272:CR=49152S CY=CR+10:CX=CY+1:D 
IMK$(19,3):G0SUB900 

110 F0RT=0T019:FQRJ=0T03:READK$(T,J):NEX 
T:NEXT 

120 P0KE53280,0:P0KE53281,OS PRINTCHR*(14 

7);CHR$(5):x=10:Y=2S G0SUB800 

130 PRINT"THE KABALA NAME GAME"SFORT=OTO 

1:FQRJ=1T013:X=T*6+4:Y=5+JS G0SUB800 

140 PRINTCHR*(T*13+J+64) 55 RIGHT*(STR$ 

(T*13+J),LEN(STRS(T*13+J> )-l) SNEXT:NEXT 

150 P(3)=INT(RND(1)*20):R1=INT(RND(1)*4) 

:R2=INT(RND(1)*4):IFR2=R1THEN150 

160 X=25:Y=6:G0SUB800:PRINTK*(P(3),R1):f 

0RT=0T02:P(T)=-l:NEXT:FORT=0T02 

170 R=INT(RND(1)*20):F0RJ=0T03:IFP(J)=RT 

HEN170 

180 next:p(T)=r:next:fort=oto3:m(T)=-i:n 
ext:fort=oto3 

190 R«INT(RND(1)*4):IFM(R)>-lTHEN190 
200 M(R)=T:NEXT:F0RT=0T03:X=21:Y=10+T*2: 
G0SUB800:PRINTT+15 

210 IFM(T)=3THENPRINTK*(P(3),R2):R=T:GOT 
0230 

220 PRINTK*(P(M(T)),INT(RND(1)*4)) 

230 NEXT 

240 GETA$: IFA*<"1"0RA*>"4 ,, THEN240 

250 A=VAL(A*)-1:X=20:Y»10+A*2:G0SUB800:P 

RINT"*":X=24:Y=10+R*2:G0SUB800 

260 PRINTCHR$(18);:F0RT=1T0LEN(K*(P(3),R 

2)):PRINTMID*(K* (P (3) , R2) , T, 1) 5 :NEXT 
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270 PRINT:P0KESQ+1,100:1FR=ATHENG0TQ290 
280 PQKESO+4,17:F0RT=100T050STEP-1:POKES 
0+1,T:NEXT:P0KES0+4,o:G0T0300 
290 P0KES0+4,17:F0RT=100T0150:POKESO+1,T 
:next:pokeso+4,o:s=s+i 

300 TL=TL+1:x=7:Y=20:G0SUB800:PRINT'^OU’ 
VE GOTTEN" 5 S; "OUT OF"; TL5 CHR$ (157) 5 ” ! 11 
310 IFTL<1OTHENFORT=1T03000:NEXT:G0T0120 
320 X=B:Y=22:G0SUBB00:PRINT"PRESS <F1> T 
O PLAY AGAIN" 

330 GETA$:IFA*< >CHR*(133)THEN330 
340 RUN 

800 POKECX,X:POKECY,Y:SYSCR:RETURN 
900 F0RBYTE=CRT0CR+9:READA:POKEBYTE,A:NE 
XT:P0KES0+5,0:P0KES0+6,240:P0KES0+24,15 
910 RETURN 

920 DATA24,174,10,192,172,11,192,76,240, 
255 

1000 DATAEDDIE,ADELE,JAKE,DICK 
1010 DATADIANA,TED,ANN,GAIL 
1020 DATADEBRA,JANE,JOE,ALICE 
1030 DATAJIM,DAVE,NEAL,LEO 
1040 DATADIANE,SAM,MABEL,FRED 
1050 DATABILL,BETH,HEIDI,ERIC 
1060 DATAKATE,PAT,NICK,GREG 
1070 DATADAVID,JOAN,NEIL,LINDA 
1080 DATAMARIA,JANICE,TIM,ALEX 
1090 DATAANDY,RAY,HELEN,TINA 
1100 DATADANIEL,SUE,PHIL,CLARK 
1110 DATABECKY,PETE,BOBBY,KATIE 
1120 DATARON,SARAH,JOHN,DOUG 
1130 DATAIRENE,PAULA,GARY,FREDDIE 
1140 DATACATHY,GEORGE,MARY,NANCY 
1150 DATAALBERT,DANNY,PEDRO,J ESSE 
1160 DATACHARLES,RUBY,MANUEL,MICKEY 
1170 DATAVICKY,HARRY,HENRY,SIMON 
1180 DATATONY,SUSAN,PENNY,JOSHUA 
1190 DATAJEREMY,THOMAS,JERRY,HERBERT 


Here are the data statements for the game. WeVe made lists of 
names of equivalent number value. You add or subtract names so long 
as all the names on a given line have the same value. You can also 
replace a line of your own with animal names or plant names and 
change the nature of the game that way. Just be sure to change the 
PRINT commands and check the numerical values of your words. 

1000 DATAEDDIE,ADELE,JAKE,DICK 
1010 DATADIANA,TED,ANN,GAIL 
1020 DATADEBRA,JANE,JOE,ALICE 
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1030 DATAJIM,DAVE,NEAL,LEO 
1040 DATADIANE,SAM,MABEL,FRED 
1050 DATABILL,BETH,HEIDI,ERIC 
1060 DATAKATE,PAT,NICK,0REG 
1070 OATAOAVIO,JOAN,NEIL,LINDA 
1080 OATAMARIA,JANICE,TIM,ALEX 
1090 OATAANOY,RAY,HELEN,TINA 
1100 DATADANIEL,SUE,PHIL,CLARK 
1110 DATABECKY,PETE,BOBBY,KATIE 
1120 DATARON,SARAH,JOHN,DOUG 
1130 DATAIRENE,PAULA,SARY,FREDDIE 
1140 DATACATHY,6E0RSE,MARY,NANCY 
1150 DATAALBERT,DANNY,PEDRO,JESSE 
1160 DATACHARLES,RUBY,MANUEL,MICKEY 
1170 DATAVICKY,HARRY,HENRY,SIMON 
1180 DATATONY,SUSAN,PENNY,JOSHUA 
1190 DATAJEREMY,THOMAS,JERRY,HERBERT 
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Pitch and Toss 

This game is thoroughly determined by chance. 

Games of chance exist everywhere in the world. Often they are asso¬ 
ciated with predicting the future or making important decisions 
when there are no reasons to choose one way of acting over another. 
They also are good gambling games since every player is supposed to 
have an equal chance of winning. In our society, the most familiar 
chance games involve dice, playing cards, and spinners like the 
roulette wheel. In other parts of the world, different devices are used. 
For example, throughout the African continent cowrie shells, nuts, 
and elaborately carved wood tokens are commonly used in chance 
games. The characteristic of these devices is that they have two sides 
like our coins. A number of them are cast and scores are made accord¬ 
ing to which faces show up. 
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For example, there is a game played by the Igbo of Nigeria which 
consists of casting four cowrie shells which can fall back up or open 
side up. 


C.oiA'ie 





The best scores are four backs up or four backs down. 

There are 16 possibilities when tossing the four cowries: (U = 
back up, D = back down) 


uuuu 

UUDD 

DDUU 

UUUD 

UDUD 

UDDD 

UUDU 

UDDU 

DUDD 

UDUU 

DUUD 

DDUD 

DUUU 

DUDU 

DDDU 

DDDD 


Since the cowries can be considered to look alike, these possibil¬ 
ities can be simplified in the following way: 

4 up 0 down — 1 way 
3 up 1 down — 4 ways 
2 up 2 down — 6 ways 
1 up 3 down — 4 ways 
0 up 4 down — 1 way 

Because of this, the following scoring system could be used for 
the game, giving fewer points to the arrangement most likely to 
happen, and more points to the rarer combinations. 


4 up or 4 down 

4 points 

1 up 3 down 

2 points 

3 up 1 down 

2 points 

2 up 2 down 

1 point 
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Try the game with cowries, walnuts, or pennies. It is as interesting as 
playing dice and provides more awareness of arrays of figures and 
scoring combinations. 
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This game is a computer version of the cowrie game. The com¬ 
puter will throw five cowries onto the playing board. One side of the 
cowrie will be represented by X and the other side as O. You have to 
guess how many X's will come up on your toss. The game is for two 
people and both players guess on each throw. The scoring is as fol¬ 
lows: If you guess correctly you get points equal to the number of X's 
that you predicted would come up. If your partner guesses correctly, 
you lose points equal to the number of your guess. If neither of you 
guess correctly there is no score and you go on to the next round. 
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1st Player 
LOST 4 
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MON 3 
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10 REM *** PITCH AND TOSS *** 

100 CR=49152:CY=CR+10:CX=CY+1: G0SUB900 
110 P0KE53280,0: P0KE53281,0: PRINTCHR* (14 
7);chr*<5) :s*<0)="0":s*(l)="X" 

115 PRIIMTCHR* < 153) ;:S1 = 10:S2=10 
120 PRINT" 0XDX0X0X0X0X0X0X0X0X » 

125 PRINT “ X " i CHR*(156)»"PITC 

H AND TOSS"!CHR*<153)J" X" 

130 PRINT" 0X0X0X0X0X0X0X0X0X0X" 

:PRINTCHR*(5):G0SUB600:B0SUB700 

200 X=2:Y=20:B0SUB800:PRINT"1ST PLAYER.. 

.HOW MANY X’S (0-5) ";:G0SUB400 

210 printk:bi=k:x=2:y=22:bosubsoo:print" 

2ND PLAYER...HOW MANY X'S (0-5) 

220 G0SUB400:IFK=G1THEN220 

pp T KITI^ ■ 

240 C=0S F0RT=0T04:X=INT(RND<1)*5):P=INT( 

RND(1)*2):X=17+X S Y=11+T:G0SUB800 

250 PRINTS*<P>:IFP=1THENC=C+1 

260 NEXT:IFC=G1THENS1=S1+G1:S2=S2-G2:BDS 

UB300 

270 IFC=B2THENS1=S1-G1:S2=S2+G2 S G0SUB350 
280 G0SUB600:IFS1<10RS2<1THENX=5:Y=13SBO 
SUB800:G0T0650 
290 G0T0810 

300 X=6S Y=7S G0SUB800: PRINT"WON 11 S G1: X=26: 

G0SUB800:PRINT"LOST"5 G2:RETURN 

350 X=6:Y=7:G0SUB800:PRINT"LOST";G1:X=26 

:G0SUB800:PRINT"WON";G2:RETURN 

400 GETK*:IFK*=""THEN400 

410 K=ASC(K*)-48:IFK<OORK>5THEN400 

420 RETURN 

600 X=2:Y=5:B0SUB800:PRINTCHR*(159)5"1ST 
PLAYER ";SI5CHR*(157)5" ":X=22 
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610 60SUB800: PRINT 11 2ND PLAYER "5S25CHR$( 
157);» "2 PRINTCHRS(5)2 RETURN 

650 PRINTCHR* (158); "GAME OVER"2X=252Y=13 
2 G0SUB800:PRINTCHR*(158);"GAME OVER" 

660 G0T0820 

700 X = 152 Y=92 G0SUB800:PRINTCHRfc(31);"### 
######"2 Y=102G0SUB800 

705 PRINT"## ##•'2 F0RT=1T052Y=10+T2GO 

SUB800 

710 PRINT"# #"2 NEXT:Y=162 G0SUB8002 

PRINT"## ##» 

720 Y=17 2 G0SUB800 2 PRINT"#########"2 PRINT 
CHR$(5)2 RETURN 

800 POKECX,X 2 POKEDY,Y 2 SYSCR 2 RETURN 
810 X«152Y=182G0SUB8002PRINT"PRESS KEY" 
820 GETK4 21FK$=""THEN820 
830 X=152 Y=182 G0SUB8002 PRINT" 

2 X=62 Y=72 G0SUB8002 PRINT" »2 X=26 

840 G0SUB800 2 PRINT" 

850 F0RT=20T0232 X=22 Y=T2 G0SUB8002 PRINT" 

"5 

860 NEXT:G0SUB700:IFS1<10RS2<1THENRUN 
870 G0T0200 

900 F0RBYTE=CRT0CR+92 READA 2 POKEBYTE- A 2 NE 
XT2RETURN 

910 DATA24,174,10,192,172,11,192,76,240, 
255 
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Date to Weekday 

This is a conversion program. You can enter any date—past, present, 
or future—and this program will tell you which day of the week it 
happened to be. Leap years are also indicated. Using this program, you 
can find out the day you and your friends and family were bom. You 
can find out the days Napoleon, Emma Goldman, and Julius Caesar 
were bom. You can find out what day Christmas will fall on in 2100 
or what day it fell on in 1166. 
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10 REM *** DATE TO WEEKDAY *** 

100 CR=49152: CY=CR+10:CX=CY+1:G0SUB900:P 
RINTCHR*(5);CHR* <147):P0KE53281,0 
110 P0KE53280,0:X=9:Y=3:G0SUB800:PRINT"D 
ATE TO DAY CONVERSION":X=2:Y=6:G0SUB800 
120 DIMM(27),Y1(12),W*(6), Y2*(12):F0RT=0 
T027:READM(T):NEXT:F0RT=1T012:READY1(T) 
130 NEXT:FQRT=0T06:READW*(T):NEXT:F0RT=1 
T012:READY2i(T):NEXT 

140 INPUT"MONTH (1-12)M:PRINT:PRINT:IN 
PUT" DAY (1-31)"5D:PRINT:PRINT 
150 INPUT" YEAR (0- )";Y:PRINT:PRINT 

160 YH=INT(Y/28):YK=M(Y-YH*28):IFINT(Y/4 
)=Y/4THENLP=1 

170 FORT=OTOM-1:N=N+Y1(T):NE X T:N=N+D-1+Y 
K:IFM >2THENN=N+LP 

180 N=N-7*INT(N/7):D*=W*(N>:M$=Y2*(M) 

190 printm$;d;chr*(157);",";Y5"WAS a "sd 

$; M 

200 IFLP=1THENPRINT:PRINTY;"WAS A LEAP Y 
EAR" 

210 X=15:Y=20:G0SUB800:PRINT»PRESS <F1>" 
220 GETA*: I FA$< >CHR* (133) THEN220 
230 RUN 

800 POKECX,X:POKECY,Y:SYSCR:RETURN 

900 F0RBYTE=CRTQCR+9:READA:POKEBYTE, A: NE 

XT:P0KES0+5,0:P0KES0+6,240:RETURN 

910 DATA24,174,10,192,172,11,192,76,240, 

255 

920 DATA4,6,0,1,2,4,5,6,0,2,3,4, 5,0,1,2, 
3,5,6,0,1,3,4,5,6,1,2,3 

930 DATA31,28,31,30,31,30,31,31,30,31,30 
,31 

940 DATAMONDAY,TUESDAY,WEDNESDAY,THURSDA 
Y,FRIDAY,SATURDAY,SUNDAY 

950 DATAJANUARY,FEBRUARY,MARCH,APRIL,MAY 
,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER 
960 DATANOVEMBER,DECEMBER 
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President Precedence 

For multiple choice fans, here's a challenge to test your knowledge of 
the Presidential terms of office. A date appears at the top of the 
screen. The names of three Presidents appear by the numbers one, 
two, and three. Press a number on the keyboard to match the correct 
President with his term. 


10 REM *** PRESIDENT PRECEDENCE *** 

100 CR=49152:CY=CR+10:CX=CY+1:G0SUB800:P 

RINTCHR*(5)5 CHR*(147):P0KE53280,0 

110 P0KE53281,0:DIMA*(39,1):F0RT=0T039:R 

EADA*(T,0):READA*(T,1):NEXT 

120 P(0)=INT < RND(1)*40):P(1)=INT < RND(1)* 

40):P(2)=INT(RND(1)*40) 

130 IFP(1)=P(2)ORP(2)=P(0)ORP(0)=P(1)THE 
N120 

140 PRINTCHR*(147):PRINT:PRINTTAB(10)"PR 
ESIDENT PRECEDENCE":X=15:Y=6:G0SUB700 
150 PRINTA*(P(0),1):F0RT=0T02:M(T)=-l:NE 
XT:Y=10:x=0:G0SUB700:F0RT=0T02 
160 R=INT(RND(1)*3):IFM(R)>-lTHEN160 
170 M(R)=t:NEXT:F 0RT=0T02:PRINTT+l5 A*(P( 
M(T)),O):NEXT 

180 BETA*: IFA*<"1"ORA*>"3"THEN180 

190 A=VAL(A*)-1: IFM(AX>0THEN180 

200 X=16:Y=18:G0SUB700:PRINT"CORRECT":FO 

RT=1T01000:NEXT:G0T0120 

700 POKECX,X:POKECY,Y:SYSCR:RETURN 

800 F0RBYTE=CRT0CR+9:READA:POKEBYTE, A: NE 

XT:P0KES0+5,0:PQKESO+6,240:RETURN 

810 DATA24,174,10,192,172,11,192,76,240, 

255 

850 DATAGEORGE WASHINGTON,1789-1797,JOHN 
ADAMS,1797-1801 

855 DATATHOMAS JEFFERSON,1801-1809,JAMES 
MADISON,1809-1817 

860 DATAJAMES MONROE,1817-1825,JOHN QUIN 
CY ADAMS,1825-1829 

865 DATAANDREW JACKSON,1829-1837,MARTIN 
VAN BUREN,1837-1841 

870 DATAWILLIAM HENRY HARRISON,1841-1841 
,JOHN TYLER,1841-1845 
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875 DATAJAMES K. POLK,1845-1849,ZACHARY 
TAYLOR,1849-1850 

880 DATAMILLARD FILLMORE,1850-1853,FRANK 
LIN PIERCE,1853-1857 

885 DATAJAMES BUCHANAN,1857-1861,ABRAHAM 
LINCOLN,1861-1865 

890 DATAANDREW JOHNSON,1865-1869,ULYSSES 
S. GRANT,1869-1877 

895 DATARUTHERFORD B- HAYES,1877-1881,JA 

MES A. GARFIELD,1881-1881 

900 DATACHESTER A- ARTHUR,1881-1885,GROV 

ElR CLEVELAND (1), 1885-1889 

905 DATABENJAMIN HARRISON,1889-1893,GROV 

ER CLEVELAND (2),1893-1897 

910 DATAWILLIAM MCKINLEY,1897-1901,THEOD 

ORE ROOSEVELT,1901-1909 

915 DATAWILLIAM H. TAFT,1909-1913,WOODRO 
W WILSON,1913-1921 

920 DATAWARREN G. HARDING,1921-1923,CALV 
IN COOLIDGE,1923-1929 

925 DATAHERBERT C. HOOVER,1929-1933,FRAN 
KLIN D. ROOSEVELT,1933-1945 
930 DATAHARRY S. TRUMAN,1945-1953,DWIGHT 
D. EISENHOWER,1953-1961 
935 DATAJOHN F. KENNEDY,1961-1963,LYNDON 
B. JOHNSON,1963-1969 

940 DATARICHARD M. NIXON,1969-1974,GERAL 
D R. FORD,1974-1977 

945 DATAJIMMY CARTER,1977-1981,RONALD RE 
AGAN,1981-???? 


This program can be modified to match events to dates. For 
example, in the data lines from 850 to 945 you can put the name of a 
battle with its dates or the name of a great invention with the date it 
was invented. As long as you do not change the structure of the data 
and keep to associating a name with a number you will be able to 
modify this program and make up your own multiple choice quizzes. 
There is one thing to be careful about, however. On line 110, the 
program is set up to deal with 40 data inputs (FOR T=0 to 39) and on 
line 120 to deal with the length of your DATA statement. If you keep 
to the same number of items and same length of items in the program 
you'll have no trouble. If not, you should change the parameters on 
lines 110 and 120. 
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PART III 
IQBuih&ng 




r\ 


^intelligence Quotient (IQ) implies that there is some objective 
measure of how smart people are. An IQ of 100 is supposed to be 
normal, 140 brilliant, and 75 slow. However, no one knows how accu¬ 
rate even the most sophisticated tests are. Your IQ has to do with how 
you perform on the tests you take and not with how intelligently you 
function with others and at your work. 

Since the measure of IQ is so test-bound, your score can be 
changed if you practice the skills that the test designers have chosen 
as epitomizing the essence of "intelligence." Usually, these skills have 
to do with memorizing lists, figuring out sequences, estimating 
answers quickly, and knowing how to manipulate strings of symbols. 
This Part provides a number of games and exercises that hone these 
skills. Of course, there is no guarantee that your IQ will be raised by 
playing them but there is a chance that, if you master these modes of 
thinking, you will find it easier to deal with the challenges of IQ tests. 
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Gestalt 


The word Gestalt refers to a perceptual whole. When we look at a 
chair or table we do not see its individual parts and then conclude 
that they go together to make a chair or table. We see the chair or 
table as an integrated whole or Gestalt. A Gestalt problem that 
English philosophers debated about 30 years ago led to this computer 
program. The problem was usually phrased this way: 

You are looking at a field of sheep. Exactly how many sheep do you 
see? If a sheep were added or subtracted would you see any more or 
fewer sheep? 

If you do not stop to count the sheep, it would be accurate to say that 
you saw a whole bunch of sheep, not a particular number of sheep. 
You could, however, estimate the number of sheep and, if you had a 
great deal of experience with sheep, could get more and more accu¬ 
rate. Estimation even within the context of an initially disordered 
Gestalt can be refined and improved. This program gives you an 
opportunity to guess at the number of dots on your computer screen 
without counting them. The computer will tell you how close your 
guess is and then give you another series of dots to guess about. This 
kind of estimation is related to IQ tests in that the ability to estimate 
the probability of an answer makes it possible to eliminate the least 
likely choices of a multiple choice question and, therefore, gives you 
more time to work on problems. 

The program also helps you concentrate on responding to your 
perceptions and refining them. It is practice in looking at and inter¬ 
preting what you see. 

10 REM ### GESTALT **# 

100 CR=49152:CY=CR+10:CX =CY+1:G0SUB900 
110 P0KE53280,0:P0KE53281,0:PRINTCHR*(14 
7)JCHR*(5) 

120 PRINT:PRINT"THIS IS AN ESTIMATION GA 
ME.PRINT:PRINT"YOU WILL SEE DOTS ON TH 
E SCREEN." 
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130 print:PRINT'DO not try to count the 
DOTS.":PRINT:PRINT"JUST ESTIMATE HOW MAN 
Y.”:PRINT 

140 PR I NT 11 AFTER A WHILE YOU SHOULD BET B 
ETTER" 

150 PRINT:PRINT:PRINT"PRESS A KEY TO BEG 
IN" 

160 GETK*:IFK*=""THEN160 
170 PRINTCHR*(147)J:Q=INT(RND(1)*20)+5 
180 F0RZ=1TQQ:X=INT(RND(1)*39):Y=INT(RND 
(1)*21):G0SUB800:PRINTCHR*(119):NEXT 
190 X=2:Y=21:B0SUB800:INPUT"YOUR ESTIMAT 
E "5S 

200 IFS=QTHENPRINT" YOU GOT IT!!":GOTO 

220 

210 PRINT" YOU ARE"?ABS(S—Q)»"OFF" 

220 F0RT=1T01500:NEXTT:RUN 
800 POKECX,X:POKECY,Y:SYSCR:RETURN 
900 F0RBYTE=CRT0CR+9:READA:POKEBYTE,A:NE 
XT:RETURN 

910 DATA24,174,10,192,172,11,192,76,240, 
255 
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This program may put too many dots on the screen at the same time 
or run too quickly for you. If you want fewer dots on the screen to 
begin with, you can change the value of Q on line 170: 
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Q=INT (RND(1 )*20)+5 
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For example, if you change the 5 at the end of the line to 0, you'll get a 
maximum of 20 dots and if you change it to 5 you 11 get a maximum of 
10 . 

If you want to slow the program down, you can put a pause loop 
such as 

FOR X=1 TO 500:NEXT X 

into the program after you plot the points (line 220). 



lUish line 

Flash Line is a length estimating program. It flashes two lines on the 
screen and asks you which one is longer. If you get the correct answer, 
it gives you another set of lines. If you get it wrong, it gives you 
another chance. Most of the challenges of this program are easy to 
answer once you get the rhythm of looking and inputting your 
answer. However, the game can be speeded up by changing the pause 
loops at lines 170 and 230. You can also change the length of the lines 
by reducing the random value in line 120. When you reduce the size 
of the line the game gets more complex because the sizes of the lines 
don't vary as much. 
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Notice that there is a machine language routine at lines 900 and 
910 that you will find in many of the programs in this book. This 
routine is in effect a positioning statement that sets up the screen 
placement of the game or utility. 


10 REN *** FLASHLINE #** 

100 CR=49152:CY=CR+10:CX=CY+1:G0SUB900 
110 P0KE53280,0:P0KE53281,0:PRINTCHR#(14 
7);CHR*(5) 

120 X(1)=INT(RND(1)*15)+10:X(2)=INT(RND( 
1)*15)+10:IFX(1)=X(2)THEN120 
130 PRINTCHR*(147):PRINT:PRINT" WHICH ON 
E IS LONGER,THE 1ST OR 2ND?" 

140 F0RT=1T02:X=1:Y=10:G0SUB800 
150 PRINT" 

":G0SUB800 

160 F0RJ=1T0X(T):PRINTCHR*(18);CHR*(28); 
" "5:NEXTJ:PRINTCHR*(146);CHR*(5) 

170 FORJ=1T0400:NEXTJ:NEXTT 
180 X=1:Y=19:G0SUB800:PRINT"TYPE 1 OR 2" 
190 BETA*:IFA*<>"1"ANDA*<>“2"THEN190 
200 A=VAL(A*):B=2:IFX(1)>X(2)THENB=1 
210 IFA=BTHENPRINT:PRINT"RIGHT. HERE’S A 
mother ONE."zC=1 

220 IFAOBTHENPRINT:PRINT"WRONG. take an 
OTHER LOOK.“:C=2 

230 F0RT=1T01000:NEXT:0NCG0T0120,130 

799 STOP 

800 POKECX,X:POKECY,Y:SYSCR:RETURN 

900 FORBYTE=CRTQCR+9:READA:POKEBYTE,A:NE 
XT:RETURN 

910 DATA24,174,10,192,172,11,192,76,240, 
255 



Did you See It? 


Here is a third estimating game. This program moves circles around 
the screen randomly. A challenging perceptual experiment would be 
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to see whether substituting other symbols changes the difficulty of 
the task. For example, you could substitute symbols such as "?" or "m" 
or "#" and see whether some symbols are easier to decode than others 
in a game such as this. 

The substitution should be made at line 160 for CHR$( 119). If 
you look at the back of your Commodore Reference Manual you will 
see a list of CHR$ and ASCII code numbers. ASCII codes give 
numbers to each symbol you can use on your Commodore 64. The 
CHR$ function allows you to print out or use a character. For exam¬ 
ple, the ASCII code for @ is 64. If you typed PRINT CHR$(64) you 
would get @. If, on the other hand, you typed ASCII)"®") you would get 
the number 64. 

Here is a simple program that will print out ASCII code numbers 
and their character equivalents: 

10 FOR X=32 TO 191 

20 PRINT “ASCII= ";X;" ”;''CHR$= ";CHR$(X) 

30 NEXT 


10 REM *** DO YOU SEE IT *** 

100 CR=49152:CY=CR+10:CX=CY+1:G0SUB900 
110 P0KE53280,OS P0KE53281,0:PRINTCHR*(14 
7);CHR*(5) 

120 X=2:Y=20SGOSUBSOO:PRINT"- 

130 B0SUB800:PRINT“H0W MANY*DO YOU SEE?" 
:S=INT <RND(l)*10)+5 
140 F0RM=1T0500:NEXTM 
150 F0RW=1T0S 

160 X=INT(RND(1)*40):Y=INT(RND(1)*20): GO 
SUB800:PRINTCHR*<119) 

170 F0RR=1T0275:NEXTR:GOSUBSOO:PRINT" 
NEXTM 

180 X=5:Y=23:G0SUB800:INPUTG 

190 IFG=STHENPRINT" YOU GOT IT 

!"5 

200 IFGOSTHENPRINT" TRY AGAIN 

";:FORT=1T0500:NEXTT:G0T0150 

210 F0RT=1T0500:NEXT:RUN 

800 POKECX,X:POKECY,Y:SYSCR:RETURN 

900 F0RBYTE=CRT0CR+9:READA:POKEBYTE,A:NE 

XT:RETURN 

910 DATA24,174,10,192,172,11,192,76,240, 
255 
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Memory Musde B voider 

This challenge begins by showing you two digits to memorize. If you 
can type them in correctly you will then be shown three digits and so 
on until your mind is overcome with numbers. When you finally 
miss you will be assigned one of the 15 ranks of memory power we 
have built into the program. Repeating number sequences occur on a 
number of individually administered IQ tests and, with some training, 
you can become a memory master. The memorization of sequences is 
also a good exercise in the development of concentration. 


10 REM *** MEMORY MUSCLE BUILDER *** 

100 CR=49152:CY=CR+10:CX=CY+1:G0SUB900 
110 P0KE53280,O:P0KE53281,0:PRINTCHR*(14 
7)?CHR*<5):DIM A<15),N*<14):N«1 
115 F0RT=0T014: READN* (T): NEXT 
120 PRINTCHR*(147):X=7:Y=2:B0SUB800:PRIN 
T"* MEMORY MUSCLE BUILDER *" 

130 X=2:Y=6:S0SUBB00:PRINT"WATCH CAREFUL 
LY...":F0RT=1T0150:NEXT 

140 X=1:Y=8:BOSUBBOO:FORT=OTON:A<T)=INT( 

RND(1)*10):PRINTA(T)S:NEXT 

150 FORT =1T0200+N*600:NEXT:X=1:Y=8:GOSUB 

800:FORT=OTON:PRINT" ? "5:NEXT 

160 X=2:Y=10:G0SUBB00:PRINT"N0W, enter t 

HE NUMBERS YOU SAW":X=2:Y=12:B0SUB800 

170 P0KE198,0:F0RT=0T0N 

180 BETK*:IFK*=""THEN180 

190 K=ASC(K*)-4B:IFK<OORK>9THEN180 

200 PRINTKS:IFK<>A <T)THEN300 

210 NEXT:X=2:Y=14:G0SUB800:PRINT"WOW, WH 

AT A MEMORY!":N=N+l:IFN=16THEN400 

220 F0RT=1T0750:NEXT:B0T0120 

300 X™2:Y=14:80SUB800:PRINT"OOPS! THE NU 

MBERS WERE. ■ ■ 11 

310 Y=16:Q0SUB800:FORT=OTON:PRINTA(T);S N 
EXT 

320 y= 1 8:gosubsoo:print"your rank: (, ;n$ 

(N) 

330 F0RT=1T02000:NEXT:RUN 

800 POKECX,x: pokecy,y:syscr:return 
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900 FORBYTE=CRT0CR+9:READA S POKEBYTE, A: NE 
XT:RETURN 

910 DATA24,174,10,192,172,11,192,76,240, 
255 

920 DATA NOVICE CLASS 2,NOVICE CLASS 1,1 
NITIATE CLASS 2,INITIATE CLASS 1 
930 DATA AVERAGE CLASS 2,AVERAGE CLASS 1 
,MEMORY WHIZ CLASS 2 

940 DATA MEMORY WHIZ CLASS 1,MASTER CLAS 
S 2,MASTER CLASS 1 

950 DATA MEMORY MASTER CLASS 2,MEMORY MA 
STER CLASS 1,GRANDMASTER 
960 DATA PRODIGY,GENIUS 


If you look carefully at this program you will see that the varia¬ 
ble N indicates how many numbers you guessed correctly and, at line 
320, is used to assign you a rank. The assignment of ranks depends 
upon a READ...DATA... command in which each rank becomes a 
single data statement as listed below: 


920 DATA NOVICE CLASS 2,NOVICE CLASS 1,1 
NITIATE CLASS 2,INITIATE CLASS 1 
930 DATA AVERAGE CLASS 2,AVERAGE CLASS 1 
,MEMORY WHIZ CLASS 2 

940 DATA MEMORY WHIZ CLASS 1,MASTER CLAS 
S 2,MASTER CLASS 1 

950 DATA MEMORY MASTER CLASS 2,MEMORY MA 
STER CLASS 1,GRANDMASTER 
960 DATA PRODIGY,GENIUS 


If you want to create your own ranks, all you have to do is list the 
program and change the data lines to any titles you choose. If you 
want to create a subroutine in another program that uses a ranking 
system, all you have to do is adapt lines 320 and 920 to 960 for your 
own purposes. 


w 
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Mug Shot 

Mug Shot is a different kind of memory game. Mug shots are face 
photos that victims of crime are given in order to identify criminals. 
In this program, the computer creates a face for you to look at for a 
while and then clears the screen and challenges you to recreate the 
face from a choice of eyes, noses, and mouths. After you think you 
have successfully reconstructed the face, the computer shows you the 
original face next to your reconstruction. This program provides a 
deceptively complex challenge and gives a sense of how hard it is to 
reconstruct a face from memory. You can study this program and add 
a number of other features to the face. For example, you can put on 
eyebrows or hair, or even make a whole series of different shaped 
faces (oval, round, squarish, etc.). 
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10 REM *** MUBSHOT MEMORY TEST *** 

100 CR=49152:CY=CR+10:CX=CY+1:B0SUB800 
110 0* (0) =>"EYES" : 0* (1)= ,, NOSE“: 0$ (2) ="MOU 
TH“ 

120 POKE53280,O:P0KE53281,0:PRINTCHR*(14 
7) SI CHRS (5) 

130 F0RT=0T02 S F0RU=0T02:FORV=0T05:READA: 

FS(T, U>=FS(T,U)+CHRS(A):NEXT:NEXT:NEXT 

140 PRINTTAB(11)"MUGSHOT MEMORY TEST":GO 

SUB600:G0SUB610:FORT=0T02 

150 A(T)=INT(RND(1)*3):NEXT:G0SUB550:X=6 

:Y=16:G0SUB700 

160 PRINT"REMEMBER THIS MAN'S FACE...-": 

F0RT=1T01500:NEXT:G0SUB610:G0SUB500 

170 F0RT=0T02:X=2:Y=16:G0SUB700:PRINT"OK 

AY, DO YOU RECOGNIZE THE " ? OS (M (T) ) ? "? " 

180 F0RJ=0T02:Y=18+J*2:G0SUB700:PRINTJ+1 

5" "?FS(M(T),J):NEXT 

190 GETAS:IFAS=""THEN190 

200 IFVAL(AS)<10RVAL(AS)>3THEN190 

210 B <M(T))=VAL(AS)-1:X=9:Y«8+2*M(T>:GOS 

UB700:PRINTFS(M(t),B(M(T))>:NEXT 

220 X=2:Y=16:G0SUB700:F0RT=1T07:PRINT" 

":NEXT 

230 GQSUB550:F0RT=0T02:IFA(T)=B(T)THENNE 
XT:G0T0250 

240 X®7:Y=16:G0SUB700:PRINT"S0RRY, THAT’ 
S NOT THE MAN.":G0T0260 

250 X=13:Y=16:GOSUB700:PRINT"THAT’S the 
MAN!" 

260 GETAS:IFAS=""THEN260 
270 RUN 

499 END 

500 F0RT=*0T02: M (T) =-l:NEXT: F0RT=0T02 
510 R=INT(RND(1)*3):IFM(R)>-lTHEN510 
520 M(R)=T:NEXT:RETURN 

550 F0RT=0T02:X=25:Y«8+2*T:G0SUB700:PRIN 
TFS(T,A(T)):next:return 
600 X=7:G0SUB650:return 
610 X a 23:G0SUB650:RETURN 

650 Y=6:G0SUB700: PRINTCHRS(117)?:F0RT»1T 
08:PRINTCHRS(99)5:NEXT:PRINTCHRS(105) 

660 FQRT=1T07:Y=Y+1:G0SUB700:PRINTCHRS(1 
25) 5" "5 CHRS(125):NEXT:Y=14 

670 G0SUB700:PRINTCHRS(106)5:F0RT«1T08:P 
RINTCHRS(99)S:NEXT:PRINTCHRS(107):RETURN 
700 POKECX,X:POKECY,Y:SYSCR:RETURN 
800 FORBYTE=CRT0CR+9:READA:POKEBYTE, A : NE 
XT:RETURN 

810 DATA24,174,10,192,172,11,192,76,240, 
255 
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900 DATA40,119,41,40,119,41,32,113,32,32 
,113,32,117,105,32,32,117,103 
910 0ATA32,32,109,110, 32,32,32,32,106,10 
7, 32,32, 32,32, 172, 187, 32, 32,32, 99, 99, 99 
920 DATA99,32,32,32,99,99,32, 32,106,99,9 
9,99,99,107 


This program uses SHIFT and COMMODORE KEY graphics 
characters. Your Commodore 64 actually has four keyboards. Capitals 
and lower case letters make up one. The other two use the graphics 
symbols printed on your keyboard. You get the symbols on the left by 
pressing the a key and those on the right by pressing the SHIFT 
key. Thus, a S gives you a right angle shape and SHIFT S gives 
you a small heart. 

In Mugshot we have used the ASCII numbers to tell the compu¬ 
ter what characters to print. There is an explanation of the use of 
ASCH and CHR$ in Project 15, "Did You See It?' 
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Numbers Runner 

In this game you are presented with a grid consisting of 20 stars as 
well as 20 blanks at the bottom of the screen. The numbers from 1 to 
20 have been hidden under the stars randomly. The game is played 
with a joystick in port 1. Using the joystick, you can move around the 
grid. When you press the button on the joystick a number will appear 
under the star you are currently on. You goal is to place the numbers 
on the blank spaces at the bottom of the screen in order from 1 to 20. 
When you find 1, press the button and a 1 will appear in the first 
blank on the upper left. When you find 2 press the button and a 2 will 
appear in the blank to the right of 1. You have to remember what is 
under the stars that you have tested out in order to get all 20 numbers 
before your time runs out. There is a timer built into this program as 
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NUMBER RUNNER 
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well as a score keeper. The timer sets the length of a turn to one 
minute. The scorer will record your highest score. 

This is a memory development game—one that involves the 
kinds of skills called upon when you are asked about details of stories 
you have read or pictures you have seen. It is possible, after a while, to 
register all of the numbers that you land on and solve the puzzle in 
half the time you are allowed. 

The timer in the program is controlled by line 290. The variable 
TI$ refers to a second timing clock built into the Commodore 64. Line 
290 jumps to 500 once it has counted approximately 60 seconds. 
Line 500 prints out your score. Notice that line 170 also has the 
variable Tl$ and that it sets it to "000000," at the beginning of each 
game. Experiment with these lines in other programs and soon youll 
be able to set up timing devices in your own programs. 


1 REM *** NUMBER RUNNER *** 

2 REM 

100 S0=54272:CR=49152S CY=CR+10:CX=CY+1:G 
OSUBIOOO:DIMX<4,3),Y<4,3) P N(4,3),M(20> 

110 P0KE53280,0:P0KE53281 f 0:PRINTCHR* C14 
7)TAB(14)CHR*<S>"NUMBER RUNNER" 

120 PRINTCHR*(154)SF0RT=1T020S M(T)=0:NEX 
T:F0RX=0T04:F0RY=0T03 

130 N=INT(RND(1)*20)+1:IFM<N)=1THEN130 
140 M<N)=1SN(X,Y)=NSX(X,Y)=X*4+12SY(X,Y) 
=Y*4+2:G0SUB700 

150 PRINTCHR$<18)" "CHR*(146):NEXT:NEXT 
160 FDRY=20T023STEP3S F0RX=0T027STEP3S POK 
ECX,X+6S POKECY,Y:SYSCR 
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170 PRINTCHR* <101)CHR*(101)" ":NEXT:NEXT 
:x«2 :y=i:rx«2:ry=19:r=i:ti*="oooooo" 

180 IF<(PEEK(56321)AND16)=0)ANDN(X,Y)>0 
THEN400 

190 T=PEEK(56321>AND15:0X=X:0Y=Y 
200 IFT>8ANDT<12THENX=X-l:IFX<0THENX=4 
210 IFT>4ANDT<8TNENX=X+l:IFX>4THENX=0 
220 IFT=100RT=140RT=6THENY*Y-1:1FY< OTHEN 
Y=3 

230 IFT=90RT=130RT=5THENY=Y+1:IFY >3THENY 
=0 

240 IF(QX=X)AND(0Y=Y)THEN260 
250 POKESO+1,40:P0KES0+4,33:F0RT=60TQ0ST 
EP-10:PQKESO+1,100-T:NEXT:P0KES0+4,0 
260 G0SUB700:PRINT" ":IFN(X,Y)=OTHENGOSU 
B700:PRINTCHR*(5)"0"CHR*(154) 

270 F0RT=1T050:NEXT:IFN(X,Y)>0THENG0SUB7 
00:PRINTCHR* <18)" "CHR*(146):GDT0290 
280 G0SUB700:PRINT" " 

290 IFVAL(TI*)>100THEN500 
300 GOTO180 

400 G0SUB700:PRINTCHR*(5)CHR*(157)N(X,Y) 

CHR*(154):G08UB600 

410 IF(PEEK(56321)AND16)=16THEN410 

420 IFN(X,Y)<>RTHENG0SUB700:PRINTCHR*(18 

)" "CHR*(146)" ":G0SUB600:GOTO180 

430 RX=RX+3:IFRX>34THENRX=5:RY=22 

440 POKECX,RX:POKECY,RY:SYSCR:PRINTCHR*( 

5)RCHR*(154):R=R+1:G0SUB700:PRINT" " 

450 POKESO+1,0:P0KES0+4,33:F0RT=0T0255ST 
EP5: POKESO+1, t: next: P0KES0+4, 0 
460 N(X,Y)=0:IFR<21THENG0SUB600:GOTO180 
470 PRINTCHR*(5)CHR*(19)TAB(14)" YAY! 

ii 

300 POKECX,14:POKECY,16:SYSCR:PRINTCHR*( 

5)"YOUR SCORE:"R-l:IFR-1>HSTHENHS=R-1 

510 PR1NTTAB(14)"HIQH SCORE:"HS:60SUB600 

:F0RT=1T01000:NEXT 

520 IF(PEEK(56321)AND16)=0THEN110 

530 60T0520 

600 IF(PEEK(56321)AND16)=0THEN600 
610 RETURN 

700 POKECX,X(X,Y):POKECY,Y(X,Y):SYSCR:RE 
TURN 

1000 F0RBYTE=CRT0CR+9:READA:POKEBYTE,A:N 
EXT 

1010 FORT=S0T0S0+24:POKET,0:NEXT:POKESO+ 
24,6:P0KES0+5,15:P0KES0+6,15:RETURN 
1020 DATA24,174,10,192,172,11,192,76,240 
,255 
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A Pause for Meditation 




Meditative Images 

Here is a program you can relax with. It generates different colors and 
images that show off the SHIFT and COMMODORE KEY graphics 
as well as the color capabilities of your Commodore 64. Hopefully it 
will provide a relaxing, slowly changing visual experience to savor, a 
respite after IQ madness. 


10 REM *** MEDITATIVE IMAGES *** 

100 CR=49152:CY=CR+10S CX=CY+1:G0SUB900:F 
0RT=0TQ4:F0RU=0T09:READK 

110 M$<T>=M$<T>+CHR*<K>:NEXT:NEXT:P0KE53 
280,9:P0KE53281,2:PRINTCHR*(147)3 CHR*(5) 
120 FORY=0TQBSTEP2 
130 LI=INT(RND<1)*5> 

140 IFLI=I(Y)THEN130 

150 I(Y)=LI:RI=LISIFLI>2THENRI=7-LI 
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160 FDRX=0T0YSTEP2 

170 XT=18-X:YT=10-Y+X S G0SUB800S PRINTM*(L 
I) 

180 XT=18-XS YT=12+Y-X:G0SUB800:PRINTM*(L 
I) 

190 XT=20+X:YT=10-Y+X:G0SUB800:PRINTM*(R 
1) 

200 XT=20+X:YT=12+Y-X:G0SUB800:PRINTM*(R 
I) 

210 NEXT:F0RQ=1T0600:NEXT:NEXT 
220 P0KE53280,INT(RND(1)*15):G0T0120 
800 POKECX,XT:POKECY,YT:SYSCR:RETURN 
900 F0RBYTE=CRT0CR+9:READA:POKEBYTE, A: NE 
XT:RETURN 

910 DATA24,174,10,192,172,11,192,76,240, 
255 

920 DATA31,18,169,127,146,157,157,17,127 
,169 

930 DATA156,169,127,157,157,17,18,127,16 
9,0 

940 DATA158,109,110,157,157,17,110,109,O 
* O 

950 DATA5,109,109,157,157,17,110,110,0,0 
960 DATA5,110,110,157,157,17,109,109,0,0 



W 

In order to change the colors of the characters printed to the 
w screen on the Commodore 64 you must print the character code 

^ corresponding to the color desired. That color will be the color of all 

w subsequent prints until it is changed by printing another code. 

W 
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The first character in each of the shapes defined in the program 
is a color code. For instance, the first number in the data on lines 950 
and 960 is a 5 which is the code for white. 

The background and border colors are set by POKEing a number 
from 0 to 15 into locations 53281 and 53280, respectively. On line 
110, POKE 53280,9 turns the border to brown and POKE 53281,2 
turns the background red. 

The codes for changing text colors are ASCII codes and may be 
found in the ASCII charts in the Users Guide or Reference Manual. 
But the POKEs to change the background and border colors are 
COLOR NUMBERS 0 to 15. A chart of these can also be found in the 
Manual or the Guide. 
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JLhe games and puzzles in this chapter require some thought. 
Their outcome is not decided by a spinner, a roll of dice, or any other 
chance device. If you work at them you should be able to figure out a 
way to solve their challenges (or, in one case, prove that a solution is 
impossible) and even beat the computer which has been programmed 
to play against you. If you read through the commentary on the games 
youll also find out how to add a timer to your own games as well as 
some other information about game challenges and programming 
strategies. 
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The Pattern Game 

This game requires cooperation in an indirect way. You are given a 4 
x 4 grid and asked to make a pattern on it. Using a joystick, you can 
create a star pattern by moving the cursor to any spot on the grid 
where you would like to place a star. If you press the button, a star 
will appear on your grid. Press FI when you are finished and your 
pattern will be covered over. Have a friend try to guess your pattern 
by moving the joystick and pressing the button to place a star where 
he or she thinks it might be. Here's where the cooperation comes in. If 
you don't create a regular pattern on the grid, your friend will cer¬ 
tainly have a hard time reconstructing your grid. In fact, if you simply 
place stars at random on the grid, the game will be no fun at all. You 
have to create a pattern that is challenging and decipherable. By the 
way, if your friend is getting frustrated he or she can press the 
F7 key to get a clue. One of the stars will be revealed. 

Here are a few challenging patterns: 


* * * * 

* " " * 

* " // * 

* * * * 


**//// 
" " * * 

**//// 
" " * * 


" * " * 
* // * // 
" * // * 
*//*// 
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THE PATTERN GAME 

MAKE YOUR HIDDEN PATTERN... 

♦ ♦ ** ♦ 

♦ ♦ ♦ ♦ 

♦ ♦ ♦ * 
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10 REM *** THE PATTERN GAME *** 

100 DIMP1(3,3),P2(3,3):S0=54272:CR=49152 
:cy=cr+io:cx=cy+i s G0SUB900 :c <l >=122 
HOC (2) =42: C (3) =88: P0KE53280, 0: P0KE532B 
1,o:PRINTCHR*(147)5 CHR$(5) 

120 XT=12:YT=3:G0SUB800:PRINT"THE PATTER 
N game":xt=7:yt=5:gosub800 
130 PRINT"MAKE YOUR HIDDEN PATTERN...":X 
T=9:YT=8:G0SUB800:K=1:G0SUB700 
140 xt=4:yt=19:gdsub80o:print"PRESS <fi> 
WHEN YOU’VE FINISHED.":X=0:Y=0:CL=0 
150 P=PEEK(56321)AND16:IFP=0THENP1(X,Y)= 
PI(X,Y)+l:IFP1(X,Y)>3THENP1(X,Y)=1 
160 IFP=0THENXT=9+X*2:YT=8+Y*2:G0SUB800: 
PRINTCHR$(C(P1(X,Y))>:G0SUB550 
170 G0SUB600:XT=9+X*2:YT=8+Y*2:G0SUB800: 
PRINT" ":IFX<>ZXORY<>ZYTHENG0SUB650 
180 G0SUB500:XT=9+X#2:YT=B+Y*2:B08UBB00: 
PRINTCHR$(C(P1(X,Y))):G0SUB500 
190 GETA*:IFA*< >CHR*(133)THENP0KE198,0:G 
0T0150 

200 XT=4:YT=5:G0SUB800:PRINT"NQW guess t 
HE HIDDEN PATTERN.XT=9:YT=8:G0SUB800 
210 K=3:G0SUB700:XT=24:YT=8:B0SUB800:K=2 
:G0SUB700:XT=4:YT=21:G0SUB800:x=o:Y=0 
220 PRINT"PRESS <F7> TO GET A CLUE." 

400 P=PEEK(56321)AND16:1FP=0THENP2(X,Y)= 
P2(X,Y)+1:IFP2(X,Y)>3THENP2(X,Y)=1 
410 IFP=0THENXT=24+X*2:YT=8+Y*2:G0SUB800 
:PRINTCHR*(C(P2(X,Y))):G0SUB550 
420 G0SUB600:XT=24+X*2:YT=8+Y*2:G0SUB800 
:PRINT" ":IFX<>ZXORY<>ZYTHENG0SUB650 
430 G0SUB500:XT=24+X*2:YT=8+Y*2:G0SUB800 
:PRINTCHR*(C(P2(X,Y))):G0SUB500 
440 GETA*:IFA*=CHR*(136)THEN750 
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450 IFA$<>CHR*(133)THENP0KE198,0:B0T0400 
460 P0KE198,0:F0RJ=0T03:F0RT=0T03:IFABS( 
PI(T, J))< >P2(T,J)THENG0SUB670:S0T0400 
470 next:next:xt=i:yt=5:gosubboo:print"y 
□U DID IT WITH"$ CL; 

480 PRINTCHR$(157);" CLUES! PRESS <F1>" 
:F0RT=1T09:G0SUB650:NEXT 
490 GETA*:IFA$<>CHR*(133)THEN490 
495 RUN 

500 F0RT=1T05:IF(PEEK(56321)AND16)=00R(P 
EEK(56321> AND15)< >15THENT=5 
510 NEXT:RETURN 

550 IF(PEEK(56321)AND16)=0THEN550 
560 RETURN 

600 Z=(PEEK(56321)AND15):ZX=X:ZY=Y:IFZ>8 
ANDZ<12THENX=X-1:IFX<0THENX=0 
610 IFZ>4ANDZ<8THENX=X+l:IFX>3THENX=3 
620 IFZ=100RZ=140RZ=6THENY=Y-l:IFYCOTHEN 
Y=0 

630 IFZ=90RZ=130RZ=5THENY=Y+l:IFY>3THENY 
=3 

640 RETURN 

650 POKESO+1,100:P0KES0+4,33:F0RQ=100T02 
50STEP10:POKESO+1,Q:NEXT:P0KES0+4,0 
660 RETURN 

670 POKESO+1,100:P0KES0+4,33:F0RGN100T00 
STEP-1:POKESO+1,a:NEXT:P0KES0+4,0 
680 RETURN 

700 FORJ=0T03:FORT=0T03:1FK=2THENPRINTCH 
R$(C(P2(T,J)))5" "5 

710 IFK=1THENP1(T, J ) =1: P2 (T, J) =1:PRINTCH 
R$(122);" 

720 IFK=3THENPRINT". "5 

730 NEXT:YT=YT+2:G0SUB800:NEXT:RETURN 

750 P0KE198,0:IFP1(X,Y)<0THEN400 

760 XT=9+X*2:YT=8+Y*2:G0SUB800:PRINTCHR* 

(C(Pi(X,Y))): cl=cl+i:p2(X,y)=pi(X,Y) 

770 PI(X,Y)=-P1(X,Y):G0T0400 

800 POKECX,XT:POKECY,YT:SYSCR:RETURN 

900 F0RBYTE=CRT0CR+9:READA:PQKEBYTE,A:NE 

XT:P0KES0+5,0:PQKESO+6 ,240:RETURN 

910 DATA24,174,10,192,172,11,192,76,240, 

255 
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3x3 and 4x4 Number Puzzlers 

The 3x3 and 4x4 Number Puzzlers are computer versions of puzzles 
that are over 100 years old. The earliest versions of the puzzles con¬ 
sisted of wooden trays with numbered wood blocks laid into them as 
in this old drawing: 



The 4x4 puzzle consists of a 4x4 square grid with the numbers 1 
through 15 printed on the blocks. There is one blank square on the 
grid. The blocks can be moved onto the empty square and, little by 
little, shuffled around the entire grid. The puzzle consists of shifting 
the numbers around the grid and then reassembling them in consecu¬ 
tive order. Here is one possible challenge on the 4x4 board: 

Put this square in order so that 1 is at the top left and all the other 
numbers proceed in order from left to right and then top to bottom as 
in the first drawing: 
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The computer versions of the program first use a 3x3 board and 
the numbers 1 to 8, and then a 4x4 board and numbers 1 to 15. The 
computer shuffles the numbers for you and gives you a board to solve. 
The empty square is marked by double blocks (■ ■). Using a joystick, 
you can move the empty square vertically or horizontally onto any ad¬ 
joining square. The number in that square will then move to the pre¬ 
viously empty square. Thus, in the computer version you are moving 
the empty square and the numbers are switched for you. The net 
result, however, is identical to moving the blocks into the empty 
square. There is a counter built into the program that will let you 
know how many numbers you have in the right place. 





















::::::::::: 
.« 

sill 

i ifilixisis 
: 

i :Hi!ll!ir 
: IIIHHIj; 


* : : ! 


□ □El 
I s i [ED I 7 i 
1 6 i [ED l Bg l 

score: e 


' jilflj!]!!!! 


:::::::::::::: 


1 REM *** 3 BY 3 PUZZLER *** 

2 REM 

100 S0=54272:DIMP<2,2), A (9):CR=49152:CY= 
CR+10:CX=CY+1S G0SUB500 

110 PQKE53280,0:P0KE53281,OS PRINTCHR* (14 
7);CHR$(5);CHR$(17) 

120 F0RT=1T026:READK:B*=B*+CHR$(K):NEXT 
130 PRINT:PRINTTAB(B)"N UMBER P U 
Z Z L E H 5CHR$(158) 

140 F0RY=0T02S F0RX=0T02 

150 T=INT(RND(1)*9):IFACT+1)=1THENG0T015 
0 

160 POKECX,14+5*X:POKECY,7+4*Y:SYSCR 
170 PRINTB$5:IFT<>OTHENPRINTRIGHT$(STR*( 
T>,LEN(STR*(T)>-l>:G0T0190 
180 PR I NTCHR$ (18) 11 "CHR* (146): PX=X: PY=Y 
190 A(T+i)=1 :p( x,Y)= t:next:next:goto 310 
200 S=PEEK(56321)AND15:OX=PX:DY=PY 
220 IFS=14THENPY=PY-l:IFPY<0THENPY=0:GOT 
0200 

230 IFS=13THENPY=PY+1: IFPY>2THENPY=2: GOT 
0200 

240 IFS=11THENPX=PX-1:IFPX<0THENPX=0:GOT 
0200 

250 IFS=7THENPX=PX+1:IFPX >2THENPX=2:GOTO 
200 

260 IFPX=0XANDPY=0YTHEN200 

270 POKECX,14+PX*5:POKECY,7+PY*4:SYSCR:P 

RINTB$;CHR* <18)" "CHR*(146) 

280 POKECX,14+0X*5:POKECY,7+0Y*4:SYSCR:P 
RINTB*3 

290 PRINTRIGHT*(STRS(P(PX,PY)),LEN(STR*( 
P(PX,PY)))-l> 

300 P(0X,0Y)=P(PX,PY):P(PX,PY)=0 
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310 P0KES0+4,33:F0RT=1T030:NEXT:PDKESO+4 

,o:C=1:F0RY=0T02:F0RX=0T02 

320 IFP(X,Y)=0THEN350 

330 IFP(X, Y) < >CTHEN360 

340 C=C+1 

350 NEXT:NEXT 

360 POKECX,17:POKECY,23 

370 SYSCR: PRINTCHR* (5) "SCORE: ” 5 C-l 5 CHR$ ( 
158);:P0KES0+4,o:G0T0200 
500 F0RBYTE=CRTQCR+9:READA:PQKEBYTE,A:NE 
XT 

510 FORT=S0T0S0+24:POKET,0:NEXT:P0KES0+2 
4,6:P0KES0+5,15:P0KES0+6,15 
520 POKESO+1,100:RETURN 

530 DATA24,174,10,192,172,11,192,76,240, 
255 

540 DATA176,195,195,174,17,157,157,157,1 
57,221,32,32,221,17,157,157,157,157 
550 DATA173,195,195,189,145,157,157,157 


1 REM *** 4 BY 4 PUZZLER *** 

2 REM 

100 S0 a 54272:DIMP(3,3),A(16):CR=49152:CY 
=CR+10:CX=CY+1:G0SUB500 

110 PQKE532B0,0:P0KE53281,0:PRINTCHR*(14 
7)?CHR*(5);CHR«<17) 

120 F0RT=1T026:READK:B$=B$+CHR$ <K):NEXT 
130 PRINT:PRINTTAB<8)"N UMBER P U 
Z Z L E";CHR$(158) 

140 F0RY=0T03:F0RX=0T03 

150 T=INT(RND(1)*16):IFA(T+l)=1THENG0T01 
50 

160 POKECX,11+5*X:POKECY,7+4*Y:SYSCR 
170 PRINTBfcJ:IFT<>OTHENPRINTRIGHT*(STR*( 
T),LEN(STR$(T))-1):G0T0190 
180 PRINTCHRfc(18)" "CHR$(146):PX=X:PY=Y 
190 A(T+l)=1:P(X,Y)=T:NEXT:NEXT:G0T0310 
200 S=PEEK(56321)AND15:OX=PX:OY=PY 
220 IFS=14THENPY=PY-l:IFPY<0THENPY=0:GOT 
0200 

230 IFS a 13THENPY=PY+l:IFPY>3THENPY=3:GOT 
0200 

240 IFS=11THENPX=PX-1:IFPX<0THENPX=0:GOT 
0200 

250 IFS=7THENPX=PX+1:IFPX>3THENPX=3:GOTO 
200 

260 IFPX=0XANDPY=0YTHEN200 

270 POKECX,11+PX*5:POKECY,7+PY*4:SYSCR:P 

RINTB«;CHR»(18) 11 "CHR$(146) 


59 



280 POKECX,11+0X*5:POKECY,7+0Y*4: SYSCR: P 
RINTB*5 

290 PRINTRIGHTS(STRS <P <PX,PY)),LEN <STR$( 
P<PX,PY>>)-1> 

300 P<0X,0Y)=P(PX,PY):P<PX,PY)=0 

310 P0KES0+4,332 F0RT=1T030:NEXT:P0KES0+4 

,o:C=1:F0RY®0T03:F0RX=0T03 

320 IFP <X,Y)=0THEN350 

330 IFP(X, Y) < >CTHEN360 

340 C=C+1 

350 NEXT:NEXT 

360 POKECX,17:POKECY,23 

370 SYSCR:PRINTCHR*(5)“SCORE:”5 C-l5 CHR*( 
157)5 CHR$<158)” ”:P0KES0+4,0:B0T0200 
500 F0RBYTE=CRT0CR+9:READA:POKEBYTE,A:NE 
XT 

510 FORT—S0T0S0+24:POKET,0:NEXT:P0KES0+2 
4,6: P0KES0+5,15: PQKESO+6, 15 
520 POKESO+1,100:RETURN 

530 DATA24,174,10,192,172,11,192,76,240, 
255 

540 DATA176,195,195,174,17,157,157,157,1 
57,221,32,32,221,17,157,157,157,157 
550 DATA173,195,195,189,145,157,157,157 


There is a slight problem with this puzzle. Not all mixes of 
numbers can be unscrambled. There are some positions that are 
impossible to move into consecutive order. Sam Lloyd, one of the 
great puzzle inventors of all time, discovered several such positions in 
the 1870's and in one of his books describes how he turned this 
impossibility into a new challenge: 


Older inhabitants of Puzzleland will remember how in the seventies I 
drove the entire world crazy over a little box of movable blocks which 
became known as the "14-15 Puzzle." The fifteen blocks were arranged 
in the square box in regular order, but with the 14 and 15 reversed as 
shown in the above illustration. The puzzle consisted of moving the 
blocks about, one at a time, to bring them back to the present position 
in every respect except that the error in the 14 and 15 was corrected. 

A prize of $1,000, offered for the first correct solution to the 
problem, has never been claimed, although there are thousands of 
persons who say they performed the required feat. 
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People became infatuated with the puzzle and ludicrous tales 
are told of shopkeepers who neglected to open their stores; of a distin¬ 
guished clergyman who stood under a street lamp all through a win¬ 
try night trying to recall the way he had performed the feat. The 
mysterious feature of the puzzle is that none seem to be able to 
remember the sequence of moves whereby they feel sure they suc¬ 
ceeded in solving the puzzle. Pilots are said to have wrecked their 
ships, and engineers rush their trains past stations. A famous Balti¬ 
more editor tells how he went for his noon lunch and was discovered 
by his frantic staff long past midnight pushing little pieces of pie 
around on a plate! Farmers are known to have deserted their plows, 
and I have taken one such instance as an illustration for the sketch. 

Several new problems which developed from the original puzzle 
are worth giving: 

Second Problem—Start again with the blocks as shown in the 
large illustration and move them so as to get the numbers in regular 
order, but with the vacant square at upper left-hand corner instead of 
lower right-hand comer (see Fig. 1). 

Third Problem—Start with the blocks as before, turn the box a 
quarter-way round and move the blocks until they rest as in Fig. 2. 

Fourth Problem—Start as before, then shift the pieces until they 
form a "magic square," the numbers adding to thirty along all vertical 
and horizontal rows, and the two diagonals. 

1 2 3 4 8 12 
4 5 6 7 3 7 11 15 

8 9 10 11 2 6 10 14 

12 13 14 15 15 9 13 

Fig. 1 Rg- 2. 

Following are the answers to Lloyd's other challenges, taken from 
Dover Books Mathematical Puzzles of Sam Lloyd, edited by Martin 
Gardner whose commentary provides the answers to Lloyd's chal¬ 
lenges. 

[The original puzzle is impossible to solve except by such skull¬ 
duggery as turning the 6 and 9 blocks upside down. One of the 
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puzzle's peculiarities is that any such interchange, involving two 
blocks, immediately converts the puzzle to a solvable one. In fact, any 
odd number of interchanges has the same effect, whereas an even 
number leaves the puzzle unsolvable as before. Readers interested in 
learning something about the interesting mathematical structure 
underlying this puzzle are referred to the classic analysis by W. W. 
Johnson and W. E. Story in their article, "Notes on the 15-Puzzle," 
American Journal of Mathematics, Vol. 2,1879, p. 397f, and to briefer 
discussions of the puzzle in standard references on recreational 
mathematics.—M.G.] 

The other three problems are solved as follows: 

Fig. 1 can be reached in 44 moves: 14,11,12,8,7,6,10,12, 8,7,4, 

3.6.4, 7,14,11,15,13,9,12, 8,4, 10, 8,4,14,11,15,13,9,12,4, 8,5,4, 
8, 9, 13, 14, 10, 6, 2, 1. 

Fig. 2 can be reached in 39 moves: 14,15,10,6, 7,11,15,10,13,9, 

5.1.2.3.4, 8,12,15,10,13,9,5, 1,2,3,4, 8,12,15,14,13,9,5,1,2,3,4, 

8 , 12 . 

The magic square can be produced in 50 moves: 12, 8,4,3, 2, 6, 

10.9.13.15.14.12.8.4, 7,10,9,14,12, 8,4,7,10,9,6,2,3,10,9,6,5,1, 
2, 3, 6, 5, 3, 2, 1, 13, 14, 3, 2, 1, 13, 14, 3, 12, 15, 3. 

Try to figure out what characterizes an impossible challenge 
and certainly don't quit on the puzzles too soon. Something that may 
initially look impossible may merely be difficult. 



Dozo 

Dozo is a game that Japanese GO masters use to warm up. It is decep¬ 
tively simple and involves a different sort of strategy than usually 
adopted in the more aggressive games of chess and checkers. Dozo 
requires that you play to not lose rather than play to win. This will 
become clear from a description of the board, pieces, and goals of the 
game. 
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w 

vj Dozo is played on a board that is an equilateral triangle. In our 

w version of the game, each side is seven units long. Here is a picture of 

the board: 
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There are four different pieces that you can use in the game. As 
opposed to most Western games, the pieces do not belong to any one 
of the players. On each move of the game, you can choose any one of 
the pieces and place it on any empty point on the board. The goal of 
the game is to be the first player to make an equilateral triangle of any 
size with the three vertices of the triangle having the same piece. 
Suppose the pieces were called 1, 2, 3, and 4. Here is a sample game 
winning position: 


* 

1 2 
2 3 4 

* * “| * 

2 * 2 * * 

****** 

****** 3 
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Notice that the 2's in lines 3 and 5 make up an equilateral triangle. 
The player who placed the last 2 on the board is the winner. The 
player who placed the second 2 on the board trapped him- or herself 
into a losing position. The complexity of this game emerges from the 
fact that you always have to think about not making a move that will 
give your opponent an equilateral triangle. This involves analyzing 
positions that won't lead to a loss as well as looking out for winning 
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positions. Simple and direct aggression will almost always lead to a 
loss in this game. 

The Dozo program is the longest in this book and the most 
tedious to copy because it turns the computer into your opponent. 
Strategy for playing a good game of Dozo is built into the program and 
the computer is pretty hard to beat. However, the computer is not 
guaranteed a win and no one has yet analyzed Dozo fully enough to 
know what the best possible move is in any situation. Try your hand 
at crossing up the computer. It will take time and concentration. You 
will need a joystick to play this game. 
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10 REM *** D0Z0 *** 

100 CR=49152:CY=CR+10S CX=CY+1S G0SUB9000: 

P0KE53280,2S P0KE53281,0 

110 PRINTCHR*<147)S CHR*(5):80T01000 

500 POKECX,H:POKECY,VSSYSCR:RETURN 

1000 G0SUB8000SIFC< >17076THEN10000 

2000 POKE198,0:G0SUB6000S G0SUB6200 

2100 G0SUB6300:IFFP=1THEN3000 

2110 H=1SV=2SG0SUB500SPRINT"MY TURN.-." 

2120 IFCC(P)< = 10RCC(P> =7THEN2400 

2130 FORT=OTOCC—1S M1=M(P, CC)SM2=M(P,T)SF 

1=M1S F2=M2SIFM1>M2THENF1=M2 SF2=M1 

2140 B=B(FI) + (F2-(Fl+1))*2:P1=A(B)SP2=A( 

B+l) 

2150 1FP1< =27THENIFS(PI)=45THENW1=P1S GOT 
02300 

2160 IFP2<=27THENIFS(P2)=45THENW1=P2 S GOT 
02300 

2170 NEXT:G0T02400 

2300 G0SUB6300:V=2:H=12:G0SUB500:PRINT"Y 
IPPEE! I WIN! ! ! 11 : X=X (SX (W1), SY (W1)) 

2310 Y=Y(SX(W1),SY(W1)):F0RT=1T02:H=X:V= 
Y:B0SUB500:PRINTT*:F0RJ=1T0120:NEXT 
2320 G0SUB500:PRINTJ*:F0RJ=1T080:NEXT:NE 
XT:G0SUB500:PRINTT*:X1=X(SX(FI),SY(FI)) 
2330 Y1=Y(SX(FI),SY(FI)):X2=X(SX(F2),SY( 
F2)):Y2=Y(SX(F2),SY(F2)):FQRT=1T05 
2340 H=X:V=Y:G0SUB500:PRINTJ* S H=X1S V=Y1: 
60SUB500:PRINTJ*:H=X2:V=Y2:G0SUB500 
2350 G0SUB500:PRINTJ*:F0RJ=0T080:NEXT:H= 

x: v=y:gosubsoo:printt*:h=xi:v=yi 

2360 G0SUB500:PRINTT*:H=X2:V=Y2:GOSUBSOO 

:PRINTT*:F0RJ=1T0120:NEXT:NEXT 

2370 F0RT=1T07500:NEXT:G0T02000 

2400 P=0:IFCC(1KCC(P)THENP=1 

2410 IFCC(2)<CC(P)THENP=2 

2420 IFCC(3)<CC(P)THENP=3 

2430 EP=P:PC=-1 

2440 tt=o:tc=-i 

2500 IFTT<10THEN2520:REM POP WAS HERE 
2505 TC=TC+1:T=TC SIFT >27THEN6400 
2510 IFS(T)< >45THEN2505 
2515 G0T02535 

2520 T^INT(RND(1)*28):IFS(T)< >45THEN2520 
2525 IFCC(P)=0THEN2600 
2530 TT-TT+1 

2535 FORJ=OTOCC(P)-1:M1=M(P,J):M2=T:F1=M 

1:F2=M2:IFM1>M2THENF1=M2:F2=M1 

2540 B=B(FI)+(F2-(Fl+1))*2:P1=A(B):P2=A( 

B+l) 

2545 IFP1< =27THENIFS(PI)=45THEN2500 


65 



2550 IFP2< =27THENIFS C P2 > =45THEN2500 
2555 NEXT 
2600 T*=P*(P> 

2610 X=X(SX(T),SY(T)):Y=Y(SX<T> ,SY (T)) 
2620 F0RK=1T05:H=X:V=Y:GOSUBSOO:PRINTT*: 
F0RQ=1T050:NEXT:S0SUB500:PRINTJ* 

2630 F0RQ=1T050:NEXT:NEXT!B0SUB500:PRINT 
T* 

2640 S<T)=ASC(T*):PX<T)=X(SX(T),SY(T)):P 
Y(T)=Y(SX(T),SY(T)):M(P,CC(P))*T 
2650 CC(P)=CC(P)+1 
2700 FP=l:B0T02100 

3000 H=l:V=2:B0SUB500:PRINT”YOUR TURN... 

II 

3100 IF(PEEK(56321)AND16)=OANDCC(P)<7THE 
NX=0:Y=0:S0SUB6100:B0T03500 
3110 Z=PEEK(56321)AND15:IFZ=14THENP=P-1: 
IFP< 0THENP=3 

3120 IFZ=13THENP=P+l:IFP>3THENP=0 
3130 H=3:V=P*3+6:GOSUBSOOSPRINT" " 

3140 T*=P*(P) 

3150 F0RT=0T010SIF(PEEK(56321)AND16=0)TH 

ENG0SUB500:PRINTT*:G0T03100 

3160 NEXT:G0SUB500:PRINTT*:F0RT=0T010:IF 

(PEEK(56321)AND16)=0THEN3100 

3170 NEXT:B0T03100 

3500 IF(PEEK(56321)AND!6)=0THENG0SUB6100 
:G0T03800 

3510 Z=(PEEK(56321)AND15)S OX=X:OY=Y 

3520 IFZ=14THENX=X-l:Y»Y-2 

3530 IFZ=13THENX=X+l:Y*Y+2 

3540 IFZ=7THENX=X+1 

3550 IFZ=11THENX=X-1 

3560 IFZ=6THENY=Y-1 

3570 IFZ=9THENY=Y+1 

3580 IFZ=5THENX=X+1SY=Y+1 

3590 IFZ=10THENX=X-l:Y=Y-l 

3600 IFX<00RY>60RX>YTHENX=0X:Y=OY 

3610 SS=P(X,Y):J*=CHR*(S(SS)):XS»X(X,Y): 

YS=Y(X,Y) 

3620 H-XS: V=YS: G0SUB500: PRINT" 11 :FORT=OT 

oio: next:gosubsoo:printt* 

3630 F0RT=0T010:IF(PEEK(56321)AND16)=0TH 

ENG0SUB500:PRINTJ*:G0T03500 

3640 NEXT:GOSUBSOO:PRINTJ*:F0RT=0T010:IF 

(PEEK(56321)AND16)=0THEN3500 

3650 NEXT:G0T03500 

3800 IFS(SS)<>45THEN3510 

3810 S(SS)=ASC(T*):H=XS:V=YS:GOSUBSOO:PR 
INTT*:PX(SS)=xs:PY(SS)=YS 
3820 M(P,CC(P))=SS:CC=CC(P):CC(P)=CC(P)+ 
1:IFCC(P)<3THENFP=0:G0T02100 
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3830 F0RT=0T0CC-2:M1=M(P,CC):M2=M(p,t>:f 
1=M1:F2=M2:IFM1>M2THENF1=M2: F2=M1 
3840 B=B(F1)+(F2-(F1+1))*2:P1=A(B):P2=A( 
B+l) 

3850 F0RGMT+1T0CC-1:IFP1=M(P,Q> 0RP2=M(P, 
Q)THEN4000 

3860 NEXT:NEXT:FP=0:G0T02100 
4000 60SUB6300 

4010 V=2:H=ll:G0SUB500:PRINT"YGU WON THE 
SAME!" 

4020 F0RT=1T07500:NEXT:G0T02000 

6000 PRINTCHR*(147):F0RX=0T06:F0RY=0T06: 

IFY<XTHENNEXT 

6010 H=X(X,Y):V=Y(X,Y):G0SUB500:PRINT"-" 
:next:next:fort=oto3:h=3:v=t* 3+6 
6020 G0SUB500:PRINTP*(T):NEXT:F0RT=0T027 
:s(T)=45 :next:fort=oto3:cc <t>=o:next 
6030 RETURN 

6100 IF(PEEK(56321)AND16)=0THEN6100 
6110 RETURN 

6200 V=2:H=ll:G0SUB500:PRINT"WILL YOU GO 
FIRST?" 

6210 GETA$:IFA$=""THEN6210 
6220 IF A*="N"THENFP=0:RETURN 
6230 IF A$="Y"THENFP=1:RETURN 
6240 60T06210 

6300 H=0:V=2:G0SUB500:PRINT" 

":RETURN 

6400 PC=PC+l:P=PC:lFP<4THEN2440 

6410 T=INT(RND(1)*28):IFS(T)< >45THEN6410 

6420 P=EP:G0T02600 

8000 DIMA(756),S(27),PX(27),PY(27),B(26) 
,P(6,6),X(6,6),Y(6,6),M(3,6) 

8010 J*="-":PRINTCHR*(145):DIMSX(27),SY( 

27):forx=oto6:fory=oto6;ify<xthennext 

8020 X(X,Y)=20-Y*2+4*X:Y< X,Y>=Y*3+4:NEXT 
:next:fort=otq3:readk:p*(T)=chr$(K) 

8030 next:t=o:fory=oto6:forx=oto6:ifx>yt 
HENNEXTY 

8040 P(X,Y)=T:SX(T)=X:SY(T)=Y:T=T+1:NEXT 
:next:v=io:h=14:gosubsoo:fort=oto26 
8050 READB(T):NEXT:PRIN+"PLEASE WAIT":C= 
O:F0RT=1T0756:READA(T):C=C+A(T):NEXT 
8060 RETURN 

9000 FORBYTE=CRT0CR+9:READA:POKEBYTE, A : N 
EXT:RETURN 

9100 DATA24,174,10,192,172,11,192,76,240 
,255 

9300 DATA119,123,42,118 

9400 DATA1,55,107,157,205,251,295,337,37 
7,415,451,485,517,547,575,601,625,647 
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9410 DATA667,685,701,715,727,737,745,751 
,755 

9500 DATA2,32,1,32,5,32,32,32,3,32,9,32, 

32.32.32.32.6.32.14.32 

9510 DATA32,32,32,32,32,32,10,32,20,32,3 

2.32.32.32.32.32.32.32.15.32 

9520 DATA27,32,32,32,32,32,32,32,32,32,3 
2,32,21,32,0,4,4,32,2,3 

9530 DATA7,32,8,32,5,32,6,32,11,32,13,32 
,9,32,32,32,10,32,16,32 

9540 DATA19,32,14,32,32,32,32,32,15,32,2 

2.32, 26,32,20,32,32,32,32,32 

9550 DATA32,32,21,32,32,32,8,32,1,5,4,32 
,13,32,9,32,3,32,7,32 

9560 DATA19,32,14,32,32,32,6,32, 11,32,26 

,32,20,32,32,32,32,32,10,32 

9570 DATA16,32,32,32,27,32,32,32,32,32,3 

2,32,15,32,22,32,1,7,0,12 

9580 DATA7,32,4,6,2,11,17,32,12,32,8,32, 

5,10,16, 32, 23,32,18,32 

9590 0ATA13,32,9,32,15,32,22,32,32,32,25 
,32,19,32,14,32,32,32,21,32 
9600 DATA32,32,32,32,2,8,12,32,3,8,5,7,1 
2,32,18,32,13,32,6,9 

9610 DATA11,32,17,32,25,32,19,32,14,32,1 

0,32,16,32,23,32,32,32,26,32 

9620 DATA20,32,32,32,15,32,22,32,32,32,1 

8.32, 1,13, 4,9, 8, 32,25,32 

9630 DATA19,32,3,14,7,32,12,32,32,32,26, 

32,20,32', 6,32,11,32, 17,32 

9640 DATA32,32,32,32,27,32,32,32,10,32,1 

6,32,23,32,3,11,1,17,0,24 

9650 DATA11,32,7,10,4,16,2,23,32,32,17,3 

2.12.32.8.15.5.22.32.32 

9660 DATA32,32,24,32,18,32,13,32,9,21,32 

, 32,32,32,32,32,4,12,2,18 

9670 DATA17,32,6,12,B,11,5,17,24,32,24,3 

2, 18,32, 10,13,9,16,23,32 

9680 DATA32,32,32,32,25,32,19,32,14,15,2 

2.32.32.32, 32, 32, 5,13,24, 32 

9690 DATA3,18,7,13,9,12,18,32,32,32,25,3 

2.6.19.11.14.17.32.24.32 

9700 DATA32,32,32,32,26,32,10,20,16,32,2 
3,32,32,32,32,32,1,25,4,19 
9710 DATA8,14,13,32,32,32,2,32,3,26,7,20 
,12,32,18,32,32,32,32,32 

9720 DATA32,32,6,27,11,32,17,32,24,32,6, 
16,3,23,1,32,0,32,16,32 

9730 DATA11,15,7,22,4,32,32,32,32,32,23, 

32.15.16.12.21.8.32.5.32 

9740 DATA32,32,32,32,7,17,4,24,2,32,23,3 

2.10.17.12.16.8.23.5.32 
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9750 DATA32,32,32,32,24,32,15,18,13,22,9 

, 32,32,32,32,32,8,18,5,25 

9760 DATA32,32,6,24,11,18,13,17,9,24,32, 

32,32,32,32,32,10,25,16,19 

9770 DATA14,23,32,32,32,32,9,19,32,32,3, 

32,7,25, 12,19,14,18,25,32 

9780 DATA32,32,32,32,6,32,11,26,17,20,24 

,32,32,32,32,32,1,32,4,32 

9790 DATA8,26,13,20,19,32,32,32,32,32,3, 

32.7.32.12.27.18.32.25.32 

9800 DATA10,22,6,32,3,32,1,32,0,32,22,32 
,16,21,11,32,7,32,4,32 

9810 DATA2,32,32,32,11,23,7,32,4,32,2,32 

, 32,32,15,23,17,22,12,32 

9820 DATA8,32,5,32,32,32,12,24,8,32,5,32 

,32,32,10,32,16,24,18,23 

9830 DATA13,32,9,32,32,32,13,25,9,32,32, 

32,6,32,11,32,17,25,19,24 

9840 DATA14,32,32,32,14,26,32,32,3,32,7, 

32.12.32.18.26.20.25.32.32 

9850 DATA32,32,1,32,4,32,8,32,13,32,19,2 

7.26.32.15.32.10.32.6.32 

9860 DATA3,32,1,32,0,32,16,32,11,32,7,32 
, 4,32,2,32, 17,32,12,32 

9870 DATA8,32,5,32,18,32,13,32,9,32,19,3 
2 14 32 20 32 

10000 PRINT 11 INCORRECT DATA IN LINES 9 

500-9870":END 
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Music owf Noise 




T 

JL our Commodore 64 has a powerful music function with a 
nine octave range. This section contains several music programs that 
take advantage of this power. 
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High Nate Law Nate 

In this game you use a joystick to rearrange a series of notes from 
high to low. Eight notes are scrambled and hidden under squares on 
the screen. 



By pushing the joystick forward or backward, you move up and 
down the musical scale. Press the button to pick up a note in position 
and carry it to another position. Press the button again to drop the 
note. Put the lowest note at the bottom of the screen and the highest 
at the top. The computer will let you know when you have succeeded 
in ordering the notes. 


10 REM *## HIGH NOTE LOW NOTE *** 

100 80=54272:P0KES0+24,15:CR=49152:CY=CR 
+lo: cx=cy+i:G0SUB900 

110 P0KE53280,8:P0KE53281,2:PRINTCHR*(14 
7>;CHR*<5> 

120 F0RT=1T08:READK:B*=B*+CHR*(K):NEXT: F 

0RT=1T09:READK:D«=D*+CHR*(K):NEXT 

130 F0RT=1TQ7:READK:C*=C*+CHR* <K):NEXT:F 

0RT=0T07:P(T)=-l:NEXT:F0RT=0T07 

140 R=INT(RND(1> *8):IFP(R)>-lTHEN140 
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150 P(R)=t:next:o=int <RND(1)#4)*8 

160 x=7:y=2:gosub800:print m high note":fo 

RT=0T07:x=19:Y=l+T*3: 80SUB800:PRINTB* 

170 8®M(P(T)+0):G0SUB500:NEXT:X=23:Y=22: 
G0SUB800: PR I NT 11 LOW NOTE 11 : G0SUB600 
180 IF(PEEK(56321)AND16)=0THEN400 
185 GETA*:IFA*=CHR*(133)ANDW-1THENRUN 
190 P0KE198,0:IF(PEEK(56321)AND15)=15THE 
N180 

200 KY=YY: Z=» (PEEK (56321) AND15) : IFZ=14THE 
NYY=YY-1:IFYY<0THENYY=0 
210 IFZ=13THENYY=YY+l:IFYY>7THENYY=7 
220 IFYY=KYTHEN1B0 

230 X=19:Y=1+KY*3:G0SUB800:PRINTB*:GOSUB 
600:G0T0180 

400 NN»1-NN:K Y»Y Y:G0SUB600 

410 IF(PEEK(56321)AND16)=0THEN410 

420 GOTO180 

500 POKESO+1 p 8/256: PGKESO, S-INT (8/256) *2 
56 :pokeso+4,17:forq=itoioo:next 
510 P0KES0+4,0:RETURN 

600 x«i 9 :y«i+yy* 3 :gosub 800 :ifnn=ithenpri 

NTC*: T=P(YY):P(YY)=P(KY):P(KY)=T 
610 IFNN=OTHENPRINTD* 

620 S«M(P(YY)+0):G08UB500:C=0:F0RT«0T07: 

IFP(T)=CTHENOC+l:NEXT:G0T0700 

630 G0T0730 

700 I FNN«= 1THENRETURN 

710 X«4:Yal0:G0SUB800:PRINT 11 YOU DID IT!" 
:x=25:G0SUB800 :print"PRESS <fi>*•: w=i 
720 RETURN 

730 IFNN=1THENRETURN 

740 X=4:Y=10:G0SUB800:PRINT" « 

: x»25:80SUB800: print 11 11 : w»o 

750 RETURN 

800 POKECX,X:POKECY,Y:SYSCR:RETURN 
900 F0RBYTE=CRTQCR+9:READA:POKEBYTE,A:NE 
XT:P0KES0+5,0:P0KES0+6,240:DIMM(31) 

910 F0RT=0T031:READM(T):NEXT:RETURN 

920 DATA24,174,10,192,172,11,192,76,240, 

255 

930 DATA8583,8101,7217,6430,5728,5407,48 
17,4291 

940 DATA7217,6430,5728,5407,4817,4291,40 
50,3608 

950 DATA6430,6069,5407,4817,4291,4050,36 
08,3215 

960 DATA5407,4817,4291,4050,3608,3215,30 
34,2703 

970 DATA18,32,32,157,157,17,32,32 

980 DATA18,169,127,157,157,17,146,127,16 
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990 DATA110,109,137,157,17,109,110 

1000 DATA18,169,127,157,157,17,146,127,1 

69 

1010 DATA110,109,157,157,17,109,110 


Here are the DATA statements used in the program. Notice 
that each line has eight numbers representing the eight notes used in 
the game and also that these numbers are ordered from low to high. 
You can change these statements and put your own scales or inter¬ 
vals in their place. Be sure, however, to keep eight notes on a line and 
order them from lowest to highest. Your reference manual will give 
you note/number equivalents. 


920 DATA24,174,10,192,172,11,192,76,240, 
255 

930 DATA8583,8101,7217,6430,5728,5407,48 
17,4291 

940 DATA7217,6430,5728,5407,4817,4291,40 
50,3608 

950 DATA6430,6069,5407,4817,4291,4050,36 
08 3215 

960 DATA5407,4817,4291,4050,3608,3215,30 
34,2703 

970 DATA18,32,32,157,157,17,32,32 

980 DATA18,169,127,157,157,17,146,127,16 

9 

990 DATA110,109,157,157,17,109,110 

1000 DATA18,169,127,157,157,17,146,127,1 

69 

1010 DATA110,109,157,157,17,109,110 
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TTie Guitar Tuner 


You can use this program to tune your guitar. The screen presents 
you with a picture of a grid indicating the six strings on a guitar. Just 
press the number corresponding to any string to turn on that tone. 
When you want to turn off the tone, press any key. 


THE G111:x: T AR T SJ8*8ER 


© 5 4 3 2 .1 


10 REM *** BUITAR TUNER *** 

100 PRINTCHRS(147)S PRINT:SQ=54272:POKESO 
+24,15:P0KES0+5,O:P0KES0+6,240:DIMS(1,5) 
110 F0RU®0T05:FQRT=0T01:READS<T,U):NEXT: 
NEXT:PRINTTAB(12)"THE GUITAR TUNER" 

120 F0RT«1T011:READG1,B2,B3:G1S=G1S+CHRS 

(G1):B2S=B2S+CHRS <G2):B3S=B3S+CHRS(G3) 

130 NEXT:PRINT:PRINT:PRINTTAB(14)BIS:FOR 

T*1T05:PRINTTAB(14)G2S:PRINTTAB(14)G3S 

140 NEXT:PRINT:PRINTTAB(14)"6 5432 1" 

:PQKES0+4,17:G0SUB250 

150 BETAS:IFAS=""THEN150 

160 A=7—VAL(AS):B0SUB250:IFA<10RA>6THEN1 

50 

170 POKESO,S(0,A—1):POKESO+1,S(1,A-l):PR 

INTCHRS(19):PRINT:PRINT:PRINT 

ISO PRINTTAB(12+A*2)CHRS(113):G0T0150 
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250 PRINTCHR*(19):PRINT:PRINT:PRINT:PRIN 
TTAB (14) 11 

260 P0KES0,O:POKESO+1,0:RETURN 

500 DATA143,10,32,14,205,18,30,25,165,31 

,62,42 

510 DATA178,194,123,99,32,99 
520 DATA178,194,123,99,32,99 
530 DATA178,194,123,99,32,99 
540 DATA178,194,123,99,32,99 
550 DATA178,194,123,99,32,99 
560 DATA178,194,123 



Guitar Chord Tutor 
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Once you've got your guitar tuned up, you might want a little help 
with mastering guitar chords. This program will give you the finger- 
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ing, name, and sound of the chords most commonly used on the 
guitar. 


GUI!AR CHORD TUTOR 
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<NUMBER> Play string 
<LETTEIft> Major Chord! 

(CONTROL LEITER> Seventh chord! 


The Guitar Tutor program displays the top frets of a guitar 
finger board and the most used chords in five keys. Type the letter 
corresponding to the chord you want to learn. Press CONTROL plus 
a letter to select a major seventh chord. Press the numbers one 
through six to hear each note of the chord. The numbers on the frets 
tell you which fingers to use in forming the chord. 


10 REM *** GUITAR CHORDS TUTOR *** 

100 DIMS<5, 3) , A < 1,6) :S0=54272:CR=49152:C 
Y«CR+10:CX=CY+1:G0SUB900:P0KE53280,0 
110 DIMT*(10,1,5):P0KE53281,0:PRINTCHR*( 
147);CHR$(5):F0RT=0T010S F0RU=0T05 
120 F0RV=0T01:READT$(T,V,U):NEXT:NEXT:NE 
XT 

130 F0RT=0T05:F0RJ=0T03:READS(T,J):NEXT: 
NEXT:F0RT=1T011:READK,L,M:A*=A*+CHR$ <K) 
140 B*=B*+CHR$(L):C*=C*+CHR*<M):NEXT:XX= 
21:YY=4:F0RJ=0T01:F0RT=0T06:READA(J,T) 
150 next:next:x=io:y=i:gosubboo:print m gu 

ITAR CHORD TUTOR":FQRT=0T04:FORJ=0TQ2 
160 X=5+J*4:Y=5+T*2:G0SUB800:READT*:PRIN 

tt*:next:next: x=2:Y=20 :gosubboo 

170 PRINT"<NUMBER> PLAY STRING":PRINT" 

<LETTER> MAJOR CHORD" 

180 PRINT" <CONTROL LETTER> SEVENTH CHO 
rd m :a=67:gqt0300 
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200 G0SUB700:F0RT=0T05S P=VAL(T$ (FF*6+A(F 
F, A), 0, T)): T*=T* (FF*6+A (FF, A), 1, T) 

210 c(T>= p: p=-<p< >-i> *p:x=xx+io-t*2s y=yy 

-1+P*2:G0SUB800:PRINTT*:NEXT 

220 GETQ*:IFQ$=""THEN220 

230 A=ASC(Q$):IFA<490RA >54THEN300 

240 A=A—49:G0SUB750:X=XX+10-A*2:Y=YY+14: 

G0BUB800:PRINTCHR*(113) 

250 IFC(A)>—1THENG0SUB600 
260 G0T0220 

300 IFA >0ANDA< 8THEN350 

310 IFA<650RA >71THEN220 

320 A=A-65:IFA=1THEN220 

330 X=35:Y=7:G0SUB800:PRINTCHR*(65+A)5" 

m :ff=0:G0T0200 

350 A=A-l:IFA=20RA=5THEN220 

360 X=35:Y=7:G0SUB800:PRINTCHR*(65+A)5"7 

":ff=i:G0T0200 

600 S=S(A,C(A)):P0KES0+1,S/256:P0KES0,S- 
INT(S/256)*256 

610 P0KES0+4,17:F0RT=1T0250:NEXT:P0KES0+ 
4,0:RETURN 

700 x=xx:y=yy-i:gosubsoo:print" 

":y=yy:G0SUB800:printa* 

710 FORT =1TO10STEP2:Y=YY+T:G0SUB800:PRIN 
tb$:Y=Y+1:G0SUB800:printc*:NEXT:Y=Y+2 
720 G0SUB800:PRINT"6 5 4 3 2 1 11 
750 X=XX:Y=YY+14:G0SUB800:PRINT" 

“:RETURN 

799 STOP 

800 POKECX,X:POKECY,Y:SYSCR:RETURN 

900 F0RBYTE=CRT0CR+9:READA:POKEBYTE,A:NE 
XT:POKESQ+5,9:P0KES0+6,O:P0KES0+24,15 
910 RETURN 

920 DATA24,174,10,192,172,11,192,76,240, 
255 

930 DATAO,0,2,4,2,3,2,2,0,0,0,0,0,0,1,1, 
0,0,2,2,3,3,-1,X 

940 DATA2,2,3,3,2,1,0,O,0,0,-1,X,O,0,0,O 
,1,1,2,3,2,2,0,O 

950 DATA1,1,1,1,2,2,3,4,3,3,1,1,3,3,0,0, 
0,0,0,0,2,1,3,2 

960 DATAO, 0, 2, 3, 0,0,2,2, O, 0,0, 0,2, 4, 0, O, 
2,3, 1,1,2,2,-1,X 

970 DATA2,3, 1,1,2, 2,0, 0, 0, 0,-1, X, 0, O, 3, 4 

,1,1,2,3,2,2,0,0 

980 DATA1,1,0,0,0,0,0,0,2,2,3,3 

990 DATA10814,11457,12139,12860,8101,858 

3,9094,9634,6430,6812,7217,7647,4817 

1000 DATA5103,5407,5728,3608,3823,4050,4 

291,2703,2864,3034,3215 

1010 DATA178,125,123,99,32,99,178,125,12 
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3, 99, 32,99,178, 125,123, 99,32, 99,178, 125 
1020 DATA123,99,32,99,178,125,123,99,32, 
99,178,125,123 

1030 DATAO, 0,1,2, 3, 4, 5, O, 1,0, 2, 3, 0,4 
1040 DATAC, 67, F, 6, D7, C, D, A7,6, A, E7, D, E, B 
7, A 


27 ; 28 

Music Match and Noise Match 


Here are two matching games involving sound. In the Music Match 
game you are presented with a grid with the letters from A to P 
printed in order in the squares. When you press a letter, you will hear 
a tune. Each tune is repeated twice on the grid. The goal of this 
two-player game is to press two letters on your turn that play the 
same tune. The game provides good ear training. You have to 
remember tunes and match them up. Each player presses two letters 
per turn. Whenever someone makes a match, however, they get 
another chance. Here's a picture of the grid followed by the game 
program: 
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10 REM *** MUSIC CONCENTRATION *** 

100 S0=54272S CR=49152:CY=CR+10:CX=CY+1: D 
IMJ(16),A(16),X(15) f Y(15):PL=1:B0SUB900 
110 PQKE53280,6:P0KE53281, 6:PRINTCHRS(14 
7)5 CHRS(5):80T0400 

200 ONR+1G0SUB250,260,270,280,290,300,31 
0,320 

210 P0KES0+l,0:P0KES0+4,17 

220 POKESO+l,N(MU)/256:POKESO,N(MU)-INT( 

N(MU)/256)*256:F0RU=1T0N(MU+1)*50:NEXT 

230 P0KES0+4,0:MU=MU+2:IFN(MU)>0THEN210 

240 RETURN 

250 MU=00:RETURN 

260 MU=39:RETURN 

270 MU=70:RETURN 

280 MU=91:RETURN 

290 MU*112:RETURN 

300 MU=153:RETURN 

310 MU«184:RETURN 

320 MU=215:RETURN 

400 FORT=0T035:READK:AS=AS+CHRS(K):NEXT: 
A1S=LEFTS(AS,9):A2S=MIDS(AS,10,9) 

410 A3S=MIDS(AS,19,9):L=0:FQRY=0T03:FORX 
=0T03:X(L)=16+X*2:Y(L)=7+Y*2:L=L+1:NEXT 
420 NEXT:X=6:Y=2:G0SUB800:PRINT"*** MUSI 
C CONCENTRATION ***":X=15:Y=6 
430 G0SUB800:PRINTA1S:F0RT=1T03:PRINTTAB 
(15);A2S:PRINTTAB(15)5A3S:NEXT 
440 PRINTTAB(15)5 A2S:PRINTTAB(15)5 RIGHTS 
(AS,9):FQRT=0T015:X=X(T):Y=Y(T):G0SUB800 
450 PRINTCHRS(T+65):NEXT:F0RT=0T015:A(T) 
=-l:NEXT:FQRT=0T07:F0RJ=0T01 
460 R=INT(RND(1)*16):IFA(R)>-lTHEN460 
470 A(R)=T:next:next:G0SUB790:x=4:y=12:g 
osubsoo:print" 

480 PL=1-PL:G0SUB790:x=4:Y=12:G0SUB800:P 
RINT" 

490 I FPL=0THENB0SUB800: PR I NT 11 PLAYER 1 H 
500 X=27:G0SUB800:PRINT" ":IFPL=1 

THENG0SUB800:PRINT"PLAYER 2" 

510 F0RC=0T01 

520 BETAS: IFAS< ,, A ,, 0RAS> ,, P ,, THEN520 

530 A=ASC(AS)-65:IFC=1THENIFA=K(O)THEN52 

O 

540 IFJ(A)=1THEN520 

550 X=X(A):Y=Y(A):G0SUB800:PRINT"*":R=A( 
A):G0SUB200:K(C)=a:r(C)=r:next 
560 IFR(O)=R(1)THEN600 

570 F0RC=0T01:X=X(K(C)):Y=Y(K(C)):G0SUB8 
oo:PRINTCHRS(65+K(C)):NEXT:G0T0480 
600 F0RC=0T01:X=X(K(C)):Y=Y(K(C)):G0SUB8 
oo:PRINTCHRS(18)5” "S J(K(C))=1:NEXT 
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610 PRINT:S(PL)=S(PL)+ 10 :G0SUB790:mm=mm+ 

l:IFMM<8THENPL=1-PL:G0T0480 

620 x=2: Y=17: G0SUB800: IFS (0) =*S (1) THENPRI 

NT"TIE GAME!":G0T0650 

630 T=l:lF S(l)>S(0)THEN T=2 

640 PRINT"YOU DID IT PLAYER”5T 

650 X=12:Y=21:GDSUB800:PRINT"PRESS ANY K 

EY..." 

660 GETA$:IFA$="”THEN660 
670 RUN 

789 G0T0789 

790 X=4:Y=8:G0SUB800:PRINT"SCORE:"? S(0): 
X=27:G0SUB800:PRINT"SCORE:"5 S(1):RETURN 
800 POKECX,X:POKECY,Y:SYSCR:RETURN 

900 FORBYTE=CRTGCR+9:READA:POKEBYTE, A: NE 
XT:P0KES0+24,15:P0KES0+5,0:P0KES0+6,240 
910 DIMN(257):F0RT=0T0257:READN(T):NEXT: 
RETURN 

920 DATA24,174,10,192,172,11,192,76,240, 
255 

1000 DATA6430,2,8583,2,6430,2,7217,2,643 
O,1,6430,1,8583,2,6430,2,7217,2,6430,1 
1010 DATA6430,1,8583,2,6430,2,7217,2,643 
O,1,6430,1,5407,2,4817,2,4291,3,0 
1020 DATA4817,2,6430,2,6430,2,6430,2,481 
7,2,5407,2,5407,2,4817,2,4817,2,6430,2 
1030 DATA6430,2,7217,2,7217,2,8101,4,643 
0,4,0 

1040 DATA6430,1,6430,1,6430,2,5728,2,540 
7,2,5407,2,4817,2,5407,2,5728,4,4817,4,0 
1050 DATA4817,4,4817,4,4817,3,5407,1,606 

9.4.6069.3.5407.1.6069.3.6430.1 
1060 DATA7217,8,O 

1070 DATA4817,2,8101,1,8101,1,8101,1,810 

1.1.8583.2.8101.2.7217.2.7217.4.4817.1 
1080 DATA4817,1,7217,1,7217,1,7217,1,721 
7,1,8101,1,8101,1,7217,2,6430,2,6430,4,0 
1090 DATA8101,2,6430,4,8101,2,6430,3,643 
O,1,5407,1,4817,3,6430,1,6430,1,6430,1 

1100 DATA6430,1,8101,1,9634,1,9634,2,963 
4,4,0 

1110 DATA6430,2,8101,2,8583,2,9634,4,810 

1.4.8101.2.6430.2.8101.2.8583.2.9634.4 

1120 DATA8101,2,10814,2,9634,4,8101,4,72 
17,4,0 

1130 DATA6430,4,6430,3,7217,1,8101,4,810 

1.4.7217.3.6430.1.7217.3.8101.1.6430.4 

1140 DATA4817,4,6430,4,6430,3,7217,1,810 
1,4,8101,4,7217,3,6430,1,7217,.3,8101,1 
1150 DATA6430,4,O 

1500 DATA176,99,178,99,178,99,178,99,174 
1510 DATA98,32,98,32,98,32,98,32,98 
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1520 DATA171,99,123,99,123,99,123,99,179 
1530 DATA173,99,177,99,177,99,177,99,189 
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The Noisy Match or, as we've called it, Noisy Concentration 
uses the same grid as Music Match and is played in the same way. 
However, it uses the special effects and game sounds like zooms and 
crashes instead of tunes. It is an easier game to play than Music 
Match and you might want to begin with it rather than with Music 
Match. 

If you study both of these programs carefully you'll find that the 
main difference between them is in their DATA statements in line 
900 and on. You can copy one of the programs and then, after saving 
it, modify what you copied to get the other one. That should save 
some time. 

You can also change the tunes and noises used in the matching 
game by changing the DATA statements. In fact, the READ...DATA 
command in BASIC can be used to modify many programs without 
having to copy them from scratch. 


10 REM #** NOISY CONCENTRATION *** 

100 S0=54272:CR=49152:CY=CR+10:CX«CY+1S D 
IMJ(16),A(16),X(15),Y(15):PL=1S G0SUB900 
110 P0KE53280,0:P0KE532B1,0:PRINTCHR*(14 
7)5 CHR$(5):G0T0400 

150 P0KES0+5,O:P0KES0+6,240:POKESQ+1,0:P 

0KES0+4,33:P0KES2+1,0:P0KES2+5,O 

160 P0KES2+6,240:P0KES2+4,17 

200 ONR+1G0SUB220,230,240,250,260,270,28 

0,290 

210 P0KES0+4,0:P0KES2+4,0:RETURN 
220 F0RU=0T0255STEP5:POKESO+1,U:PQKES2+1 
,255—U:NEXT 
225 RETURN 

230 F0RU=1T010:Q=INT(RND(1)*150):POKESO+ 
1,Q+25:PQKES2+1,175-Q:F0RV=1T040:NEXT 
235 NEXT:RETURN 

240 F0RU=75T01OSTEP-5:POKESO+1,U:P0KES2+ 
1,100-U:F0RV=1T0U:NEXT:NEXT 
245 RETURN 

250 P0KES2+4,33:POKESO+1,5:P0KES2+1,5:FO 
RU=0T0255STEP2 

255 POKESO,U:P0KES2,255-U:NEXT:RETURN 
260 FQRU=10T050STEP10:F0RV=UT075STEP5:PO 
KESO+1,V:P0KES2+1,U:NEXT:NEXT 
265 RETURN 
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270 FDRU=200T0240:P0KES0+1, U:P0KES2+1,U- 

1:NEXT:F0RU=240T0100STEP-4 

275 P0KES0+1,u:P0KES2+1,U+10:NEXT:RETURN 

280 F0RU=0T012:FORV=20+UT025+U:POKESO+1, 

v:P0KES2+1,v:NEXT:NEXT 

285 RETURN 

290 F0RU=0T0240STEP16:P0KES2+1,U:PQKESO+ 
1,U+3:F0RV=1T020:NEXT:NEXT 
305 RETURN 

400 F0RT=0T035:READK:A*=A*+CHR*(K):NEXT: 
A1*=LEFT*(A*,9):A2*=MID*(A*,10,9) 

410 A3*=MID*(A*,19,9):L=0:F0RY=0T03:F0RX 
=0T03:X(L)=16+X*2:Y <L)=7+Y*2:L=L+1:NEXT 
420 NEXT:X=6:Y=2:G0SUB800:PRINT"*** NOIS 
Y CONCENTRATION ***":X=15:Y=6 
430 G0SUB800:PRINTA1*:F0RT=1T03:PRINTTAB 
(15);A2*:PRINTTAB(15)5 A3*:NEXT 
440 PRINTTAB(15)5A2*:PRINTTAB(15)5 RIGHT* 
(A*,9):FORT=OTO15: X=X (T ) :Y=Y(T):G0SUB800 
450 PRINTCHR*(T+65):NEXT:F0RT=0T015:A(T) 
=-i: next:fort=oto7:forj=otoi 

460 R=INT(RND(1)*16):IFA(R)>-lTHEN460 
470 A(R)=T:NEXT:NEXT:G0SUB790:X=4:Y=12:G 
0SUB800: PR I NT 11 

480 PL=1-PL:G0SUB790:X=4:Y=12:G0SUB800:P 
RINT" 

490 IFPL=0THENGQSUB800:PRINT"PLAYER 1" 
500 X=27:G0SUB800:PRINT" ":IFPL=1 

THENG0SUB800:PRINT"PLAYER 2" 

510 F0RC=0T01 

520 GETA*:IFA*<"A"ORA* >"P"THEN520 
530 A=ASC(A*)-65:IFC=1THENIFA=K(O)THEN52 
0 

540 IFJ(A)=1THEN520 

550 X=X(A):Y=Y(A):G0SUB800:PRINT"*":R=A( 
A):G0SUB150:K(C)=A:R(C)=R:NEXT 
560 IFR(0)=R(1)THEN600 

570 FORC=OTOl:X=X(K(C)):Y=Y(K(C)):G0SUB8 

oo:PRINTCHR*(65+K(C)):NEXT:G0T0480 

600 F0RC=0T01:X=X(K(C)):Y=Y(K(C)):G0SUB8 

oo:PRINTCHR*(18)5" ":J(K(C))=1:NEXT 

610 PRINT:S(PL)=S(PL)+10:G0SUB790:MM=MM+ 

1:IFMM<8THENPL=1-PL:G0T0480 

620 X=2:Y=17:G0SUB800: IFS(0)=S(1)THENPRI 

NT"TIE GAME!":G0T0650 

630 T=l:lF S(l)>S(0)THEN T=2 

640 PRINT"YOU DID IT PLAYER"5T 

650 X=12:Y=21:G0SUB800:PRINT"PRESS ANY K 

EY..." 

660 GETA*:IFA*=""THEN660 
670 RUN 
789 G0T0789 
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790 X=4S Y=8:B0SUB800:PRINT 11 SCORE: "5S(0> S 
x=27:B 0 SUB 800 :PRINT"SCORE:"5 s <1):RETURN 
BOO POKECX,X:POKECY, Y:SYSCR:RETURN 
900 F0RBYTE=CRT0CR+9:READA:POKEBYTE, A: NE 
XT:P0KES0+24,15:P0KES0+5,0:P0KES0+6,240 
910 S2=54279:P0KES2+5,O:P0KES2+6,240:RET 
URN 

920 DATA24,174,10,192,172,11,192,76,240, 
255 

930 DATA176,99,178,99,178,99,178,99,174 
940 DATA98,32,98,32,98,32,9B,32,98 
950 DATA171,99,123,99,123,99,123,99,179 
960 DAT A173,99,177,99,177,99,177,99,189 
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A 

JL •computer utility is a program that can be used in many 
different contexts. A good example of a utility is a word processing 
program. Such program can be used to write business or personal 
letters, take notes, or write a poem, novel, or science fiction book. It 
can also be used to lay out a newsletter or advertising brochure. You 
determine the use given the constraints of the program. Without your 
use, however, it does nothing. This is quite different than, say, a 
preprogrammed game that runs one way and can only be used as the 
programmer intended. 

In this section well provide you with a number of simple utili¬ 
ties. For example, one may be the worlds cheapest and shortest word 
processor. Others will allow you to tailor graphs for yourself, to set up 
a ballot and ballot counter, and turn your computer into a calculator. 
Some of the utilities will have wide applications and others will be 
more specialized. Once you begin to feel comfortable as a programmer 
you should think of creating a library of your own utilities and sub¬ 
routines that is stored on disk. That way, you will be able to add them 
to other programs you build or use them without having to go 
through the tedious process of typing them in. It's a good idea to 
number your subroutines and utilities beginning somewhere around 
2000. That way, you can add them onto other programs just by load¬ 
ing them on top of programs that have lower numbers. 
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Scratch Pad: A Mini-Word Processor 

This program provides a quick and easy 40-column word processor. 
When you run this program, you'll see nothing but a blank screen and 
the cursor. That's how it should be. There are no frills here, just a 
blank page for you to write on. Type anything you want. Use upper 
and lower case letters. All of the normal editing functions of the Com¬ 
modore are available to you, including clear screen, insert space, delete 
space, and backspace. When you near the end of a line, press 
RETURN just as you would on a typewriter. After you are done and 
want to print out what you have written, turn on your printer and 
press the FI key. Whatever is on the screen will print out. To stop 
the printing before it's finished, press FI again. 

Here's a little shape poem created with the sketch pad and 
printed out on an EPSON MX-80 printer: 
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10 REM *** SCRATCHPAD *** 

100 PRINTCHR* <147);CHR* (5) ;CHR*<14)5:GOT 
0180 

110 P0KE199, 0: P0KE212,0: P0KE216,0: GETA$: 
IFA*«" 11 THEN 110 

120 IFA*==CHR*(148)THEN0Y=YS 0X=XS B0SUB210 
130 PRINTAS5 SOX=X:OY=Y:X=PEEK<211)+40*<P 
EEK(211)>39):IFA$=CHR$(133)THEN500 
140 IFA$=CHR* <13)ORA*=CHR*<17)OR(0X=39AN 
DX=0)THENY=Y+1 
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ISO IFA$=CHR*1147)ORA$=CHR$<19)THENY=0 
160 IF <0X=0ANDX=39)ORA*=CHR*<145)THENY=Y 
-1 

165 IF <0X=0ANDX=39)THENIFA*=CHR*(157)ORA 

*=CHR*(20)THENPRINTA*;:X=38 

170 IFX=39THENPRINTCHR*<13);:Y=Y+1:X=0 

180 IFY<0THENY=0 

190 IFY >24THENY=24:0Y=0Y-1 

200 G0SUB210:G0SUB220:GOTO110 

210 AD=1024+0Y*40+0X:POKEAD,PEEK <AD)AND1 

27:RETURN 

220 AD=1024+Y*40+X:POKEAD,PEEK(AD)0R128: 
POKEAD+54272,1:RETURN 
500 0PEN4,4 

510 F0RA=0T024:F0RB=0T039:C=PEEK < A*40+B+ 
1024) 

520 IFC< 32THENC=C+96 

530 PRINT#4,CHR*(C>5:NEXT:PRINT44,CHR*(1 
3) 

540 GET A*:IFA*=CHR* <133)THENCL0SE4:GOTO1 
10 

550 NEXT:PRINT#4:CL0SE4:G0T0110 



Graph Generator 

This short program will produce a bar graph with up to 20 different 
bars. You can enter as many as 20 different labels and values. You can 
use up to seven-place numbers. The program will automatically scale 
the values you place in it so that what you will see is a graph of the 
relative sizes of the values of your labels. The values will also be 
printed out next to the labels as in this graph of the LOVE/HATE 
continuum: 
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In each graph, the largest number will fill up the entire space 
allotted to the graph. Here is the program, followed by some sugges¬ 
tions of the kinds of graphs you might want to experiment with: 


10 REM *** BARSRAPH *** 

100 CR=49152:CY=CR+10S CX=CY+1:GQSUB500:D 

IMV(20),L$(19):P0KE53280,0:P0KE53281,0 

110 N=-l: DIMB$ (3,1): F0RT=0T03: F0RU=0T01: 

READK:B*(T,U> =CHR* <K>:NEXT:NEXT 

120 PRINTCHR® (147); CHR$ (5)5" B 

AR GRAPH GENERATOR":PRINT 

130 INPUT"GRAPH TITLE";T*:PRINTCHR*(147) 

5" BAR GRAPH GENERATOR":PRINT 

140 F0RT=0T019:A*="":PRINTT+1STAB(24)5"V 

ALUE"5 CHR*(145):PRINTTAB(4)5 

150 INPUT"LABEL";L$(T):PRINTCHR*(145)5 TA 

B(24)5:INPUT"VALUE"5 A* 

160 IFA$=""THENN=T-l:T=20 

170 V(T)=VAL(A$+" "):IFV(T)>VTHENV=V(T) 

180 NEXT:IFN=-1THENN-19 

190 PRINTCHR*(147)5TAB(20-LEN(T*)/2)T*:P 

rint:v=ioo/v:fort=oton 
200 x=o:y=t+2:gosub400:printleft*(l*(T), 
6):X=6:G0SUB400:PRINTV(T):X=14:G0SUB400 
210 K=INT(V(T)*V):H V=INT(K/4):PRINTCHR*( 
18)5:IFHV>0THENF0RJ=1T0HV:PRINT" "5 SNEXT 
220 PRINTB*(K-HV*4,0)5BS(K-HV*4,1):NEXT 
230 X=15:Y=23:G0SUB400:PRINT"PRESS <F1>" 
240 GETA*:IFA$< >CHRS(133)THEN240 
250 RUN 

400 POKECX,X:POKECY,Y:SYSCR:RETURN 
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500 F0RBYTE=CRT0CR+9:READA:POKEBYTE,A:NE 
XT:RETURN 

510 DATA24,174,10,192,172,11,192,76,240, 
255 

520 DATA146,0,146,180,146,161,0,234 
700 FORM=OTOP:G0SUB850:PRINTA$ <M):F0RT=0 
TOC(M) 

710 X=2: Y=10+T*2: G0SUB800: PRINTB* (M, T) 5 11 
. H ;V<M,T>:NEXT 

720 X=14:Y=22:G0SUB800:PRINT"PRESS RETUR 
N" 

730 GETK*:IFK*< >CHR*(13)THEN730 
740 NEXT:G0T0200 

800 POKECX,X:POKEDY,Y:SYSCR:RETURN 
850 PRINTCHR*<147>5” ":PRINT:PRINT" 

THE OFFICIAL BALLOT BOX"SPRINT:PRINT: 
PRINT:RETURN 

900 F0RBYTE=CRT0CR+9:READA:POKEBYTE,A:NE 
XT:RETURN 

910 DATA24,174,10,192,172,11,192,76,240, 
255 


Some graphing ideas: 

• Graph school grades. 

• Graph your monthly expenses and see the relative proportions of 
your income that you spend on food, rent, entertainment, etc. 

• Graph income distribution, age distribution, voting patterns, and 
other demographics of your community. 

• Graph the won-lost percentages of your favorite teams and see 
which teams have done the best over a period of time. 

• Do a personal preference test or a survey of people's favorite 
records or movies and see the relative positions of the first 20 
printed out in graph form. 
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Tfte Baftot Box 


This is a voting utility. It allows you to set up anywhere from 1 to 5 
different offices or positions to vote for. In each position, you can 
have up to five candidates. After the ballot is set up you can use your 
computer as a voting machine or you can tally individual ballots with 
it yourself. You can save your ballot on disk, load it any time you 
want and have tallys of the results of the voting listed out for you as 
in this screen dump for the election of a HIGH MUCK MUCK: 


THE OFFICIAL BALLOT BOX 

HXGH MUCK MUCK 


CRAZY CAT 
FELIX 


3 

7 


This utility can be used for school or club elections, popularity 
polls, voter preference surveys, etc.... anything that requires a vote 
can be recorded and tallied using it. ^ 
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10 REM *** THE BALLOT BOX *** 

100 CR=49152:CY=CR+10:CX=CY+1:Q0SUB900 
110 PQKE53280,0:P0KE53281,0:PRINTCHR*(14 
7);CHR$(5):CL0SE5 
120 DIM V(4,4),B$ (4,4) 

200 G0SUB850: PR I NT 11 1. SET UP THE BALLOT" 

:PRINTSPRINT"2. SAVE BALLOT TO DISK" 

210 PRINTSPRINT"3- LOAD BALLOT TO DISK"S 
PRINTSPRINT"4- VOTE" 

220 GETK$:IFK$=""THEN220 

230 K=ASC(K$)-48:IFK<10RK>4THEN220 

240 0NKB0T0300,500,550,600 

300 G0SUB850SPRINT"HOW MANY OFFICES? (1- 

5)" 

310 GETK*:IFK*=""THEN310 

320 K=ASC(K$)-49:IFK<00RK>4THEN310 

330 P=K:F0RM=0T0P:G0SUB850SPRINT"ENTER N 

AME OF OFFICE #"5M+l:PRINT:INPUTTS 

340 IFT*=""THENM=M-l:NEXT 

350 A$(M)=T$:G0SUB850:PRINTT*:PRINTS PRIN 

T"HOW MANY CANDIDATES? (1-5)" 

360 GETK$:IFK*=""THEN360 
370 C=ASC<K*>-49:IFC<00RC>4THEN360 
380 C(M)=C:FORT=OTOCS X=2:Y=10+T*2:80SUB8 
00:PRINTERS G0SUB800 

390 PRINT"CANDIDATE #"5T+l5" "5SINPUTT*: 

IFT*»""THENT=T—1:NEXTT 

400 B$(M,T)=T$:NEXT:NEXT:G0T0200 

500 OPENS,8,5,"SO:CDATA,S,W":PRINT#5,P:F 

0RT=0T0P:PRINT#5,C(T):next 

510 F0RM=0T0P:PRINT#5,A$(M):FORT=OTOC(M) 

:PRINT#5,B*(M,T)SNEXT:NEXT 
520 CL0SE5:G0T0200 

550 0PEN5,8,5,"0:CDATA,S,READ"SINPUT#5,P 

S F0RT=0T0P:INPUT#5,C(T):NEXT 

560 FQRM=OTQP:INPUT#5, M <M):FQRT=0T0C(M> 

:INPUT#5,B*(M,T):NEXT:NEXT 
570 CLOSES:G0T0200 

600 F0RT=0T04:F0RJ=0T04:V(T,J)=0:NEXT:NE 
XT 

610 G0SUB850SPRINT"PRESS SPACEBAR TO CAS 
T YOUR BALLOT"SPRINT 

620 PRINT"PRESS RETURN TO END VOTING" 

630 GETK$:IFK*=CHR*(13)THEN700 
640 IFK*<>" "THEN630 

650 FORM=OTOP:G0SUB850:PRINTA*(M > S F0RT=0 

TOC(M)S X=2 S Y=10+T*2 : G0SUB800 

660 PRINTT+1?CHR*(157);". "5 B* (M,T)SNEXT 

670 GETK$:IFK$=""THEN670 

680 V=ASC(K*)-49:IFV<00RV>C(M)THEN670 

690 V(M,V)=V(M,V)+1:NEXT:G0T0610 
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Address Card BCe 

The Address Card File can be used to store filing cards with any six 
different pieces of information. The form we are providing asks a 
person's name, address, city/state, home phone, and work phone; it 
also provides an extra line for remarks as in this entry: 


i>". : 




m immiiiit 


:::::::::::::::: 

:::::::::::::::: 

:::::::::: ii:i 
:::::::::::::::: 


: :i ! s :: 

: :: : i :: 

• j* :: : : is: 

! .. 

: . 9 . 

: ::: :: : : :: 

l H: :: l 

! :: I 



****** ADDRESS CARD FILE ****** 


JULIUS CAESAR 
IMPERIAL PALACE 
ROME,ITALY 
ROYAL-22 
NONE 

HAS TEMPER 


1. Flip forward 

2. Flip backward 

3. Flip To letter 

■4. Add a new card 

5. Delete current card 

6. Modify c urrent card 

7 . Load file froM disk 

8. Save file To disk 


11 






j:: j:if:ill::i:jij 


As you can see, the bottom of the screen shows you the options 
available to you with the program. You can flip forward and backward 
to see other cards, begin at any letter (the program automatically 
alphabetizes your entries), add a new entry, change an old entry, and 
save and retrieve your cards on disk. Here is the program: 




90 REM *** ADDRESS CARD FILE *** 

100 CR=49152S CY=CR+10S CX=CY+1:G0SUB900 
110 P0KE532B0,0:P0KE53281,0:PRINTCHR*(14 
7);CHR$(5) 

120 DIMN$(150,5)SAZ=-1 

130 C=0SP=CSPRINTCHR*<147) .PRINTSPRI 

NT" *** ADDRESS CARD FILE ***" 

135 PRINTS PRINTS PRINT 


V 

w 
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140 F0RT=1T06: PRINTCHR* <18);M$ (T): NEXT: F 
0RT=1T08:x=10:Y=14+T:G0SUB800 
150 PRINTT; CHR$(157); " ■ " 5 F* <T): NEXT:GOS 
UB850 

200 GETK$:IFK$< >""THENK=ASC<K$)-48:IFK<1 
ORK >8THEN200 

201 IFK*=""THEN200 

210 0NKG0T0350,300,400,450,500,550,600,6 
50 

300 P=P-1:IFP<OTHENP=AZ:IFP=-1THENP=0 
310 G0SUB850:G0T0200 
350 P=P+1:IFP>AZTHENP=0 
360 G0SUB850:G0T0200 

400 X=2:Y=4:B0SUB800:PRINT"WHICH letter? 

II 

405 GETKS:IFK*=""THEN405 

410 K=ASC(K$):IFK<650RK>90THEN405 

415 IFAZ<0THEN440 

420 FORJ=*AZTOCSTEP-l: IFN$<J,0) >K*THENI=J 

422 NEXTJ:IFI>=OTHENJ=I:G0T0430 

425 B0T0440 

430 P=J:G0SUB850 

440 X=2:Y=4:B0SUB800:PRINT" 

":G0T0200 
450 J=0:G0SUB810 

455 F0RV=0T05:X=12:Y=6+V:G0SUB800:INPUTT 
*:IFV >0THEN470 

458 IFT*<N*<0,0)THENJ=0:GQT0465 

460 FDRJ=CTOAZ:IFT*>N*<J,0)THENNEXT:AZ=A 

Z+l:J=AZ:G0T0470 

465 AZ=AZ+1:FORW=AZTOJ+1STEP—1:FORWW=OTO 

5: n« (w, ww) =n* (w-i, ww): nextww: nextw 
470 n$<j,v)=t$:t$=" m :nextv:p=j:gosub850 
:G0T0200 

500 IFAZ<0THENG0T020C 

510 FORJ=PTOAZ:F0RT=0T05:N* <J,T)=N* <J+l, 
T):NEXT:NEXT 

520 AZ=AZ-l:P=AZ: IFAZ>-1 T)|ENG0SUB850: GOT 
0200 

530 G0SUB810:G0T0200 
550 IFAZ=—1THEN200 

560 FORJ=PTOAZ:F0RT=0T05:N*(J,T)=N*(J+l, 
T):NEXT:NEXT 

570 AZ=AZ—1:P=AZ:G0T0455 

600 X=3:Y=4:G0SUB800:PRINT"REPLACE file 

IN MEMORY? Y/N" 

610 GETK$: IFK$="Y ,, THEN630 

620 IFK*O"N ,, THEN610 

625 X=3:Y=4:G0SUB800:PRINT" 

":CLOSES:G0T0200 

630 CLOSES:OPENS,8,5,"0:ADDFILE,S,R":INP 
UT#5,AZ:FGRJ«OTOAZ:F0RT=0T05 
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640 INPUT#5,N$<J,T):NEXT:NEXT:P=0:G0SUB8 
50:G0T0625 

650 X=3:Y=4:G0SUB800:PRINT"REPLACE file 
□N DISK? Y/N" 

660 GETK*:IFK*="Y"THEN690 
670 IFK*O"N"THEN660 
680 G0T0625 

690 CLOSES:OPENS,8,5,"60:ADDFILE,S,W":PR 
INT#5,AZ:FORJ=OTOAZ:F0RT=0TQ5 
700 PRINT#5,N$(J,T):NEXT:NEXT:P=0:G0SUB8 
50:G0T0625 

800 POKECX,X:POKECY,Y:SYSCR:RETURN 
810 F0RT=0T05:X=12:Y=6+T:G0SUB800:PRINT" 

":next 

820 RETURN 

850 G0SUB810:F0RT=0T05:x=13:Y=6+T:G0SUB8 

oo: PRINT" " 5 N* <P, T> :NEXT:RETURN 

900 F0RBYTE=CRT0CR+9:READA:POKEBYTE,A:NE 

xt:fort=ito7:readm*<t>:next 

905 fort=itob:readf* <T):next:return 

910 DATA24,174,10,192,172,11,192,76,240, 

255 

920 DATA NAME ,ADDRESS ,CITY/STAT 

E,H0ME PHONE,WORK PHONE,REMARKS ,XX 
930 DATA FLIP FORWARD,FLIP BACKWARD,FLIP 
TO LETTER,ADD A NEW CARD 
940 DATA DELETE CURRENT CARD,MODIFY CURR 
ENT CARD 

950 DATA LOAD FILE FROM DISK,SAVE FILE T 
O DISK 


Although the program is set up for addresses, it can easily be 
changed so that you can put recipes on it or organize a collection. For 
example, if you collect baseball cards, you can set up the program so 
that it stores: 

PLAYERS NAME: 

TEAM: 

POSITION: 

BATTING AVERAGE: 

FIELDING PERCENT: 

COMMENTS: 

To do this, you have to change the data line 920. If you also want to 
organize your baseball cards alphabetically by team, put the TEAM 
category first and all of the players on the same team will be grouped 
together. 
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A CakuCator Utility 

For all of the sophistication of home computers, it can become frus¬ 
trating when you can't use them as simple calculators. In the future, 
calculator functions will probably be built into the machines. How¬ 
ever, if you don't feel like waiting, here is a simple program you can 
copy and save to disk that will allow you to use your computer as a 
calculator whenever you care to. You can also add this program to 
other programs and build in a small calculator to games or other 
programs where fast calculation is useful. 

To use this program, you enter values and operators (+-*/ = ) as 
you would with any calculator. Press "C" for a complete clear. Press 
ESC to clear only the current entry. Press "S" to change the sign value 
of the value currently in the window. 


10 REM *** THE CALCULATOR *** 

100 CR=49152:CY=CR+10:CX=CY+1:G0SUB900 
110 P0KE53280,0: P0KE53281,0: PRINTCHRS (14 
7);CHR$(5) 

120 X=13: Y=6: GOSUBSOO: PRINT 11 THE CALCULAT 

OR": x=io: y=8:gosubsoo:printchr*(176); 

130 FORT= 1 TO 18: PR I NTCHR$ (99) 5 : NEXT: PRINT 
CHR$(174):Y=9:GOSUBSOO:PRINTCHR$ <125)J 
140 PRINTTAB(29 > 5 CHR*<125):Y=10:G0SUB800 
:PRINTCHR*(173)?:F0RT=1T018 
150 PRINTCHR$<99) 5:NEXT:PRINTCHR*<189) 
160 T$="" 

170 D$="0":GETK*:IFK*=""THEN170 

180 IFK*="+"THENP=1: X=34: Y=9: G0SUB800: PR 

intk*:goto500 

190 IFK*="-"THENP=2:X=34:Y=9:G0SUB800:PR 

intkssgotosoo 

200 IFK$="*"THENP=3ZX=34:Y=9:G0SUB800:PR 
INTK$:G0T0500 

210 IFK*="/"THENP=4:X=34:Y=9:G0SUB800:PR 
INTK$:G0T0500 

220 IFK$="="THENG0SUB700:FF=1S AA=0:G0T01 
60 

230 IFK$="C"THENG0SUB400 2 AA=0:KN=0:N=0:P 
=o:X=34:Y=9 :gosubsoo:print" ":G0T0160 
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240 IFK*=CHR*(95)THENG0SUB400:N=0:GOTO16 
O 

250 IFK*="."THEN300 

260 IFK*= ,, S M ANDN< >OTHENN=-N: T*=STR* (N): G 

0SUB400:G0T0340 

270 I FK*< 11 0 " ORK$ > 11 9 " THEN 170 

300 IFLEN(T*)=16THEN170 

310 T*=T*+K* 

320 IFT*< >"."THENN=VAL<T*> 

330 IFFF=1THENG0SUB400S FF=0 

340 X=28-LEN <TS>:Y=9:G0SUB800:PRINTT*:GO 

T0170 

400 x=12: Y=9:G0SUB800:PRINT" 

"S RETURN 

500 FF=1:IFAA-OTHENAA=1S KN=N:KP=P:G0T016 
0 

510 IFKP< >PTHENT=P:P=KP:KP=T:G0SUB700:P= 

KPS GOTO160 

520 G0SUB700:GOTO160 

700 0NPGQT0710 f 720,730,740 

710 N=N+KN:G0T0750 

720 N=KN-N:G0T0750 

730 N=N*KN:G0T0750 

740 IFN< >OTHENN=KN/N 

750 TS=STR*(N):G0SUB400:X=2B-LEN<T*>:Y=9 
:G0SUB800:PRINTT*:kn=n:return 
799 STOP 

BOO POKECX,X:POKECY,Y:SYSCR:RETURN 
900 F0RBYTE=CRT0CR+9:READA:POKEBYTE, A: NE 
XT:RETURN 

910 DATA24,174,10,192,172,11,192,76,240, 
255 
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w Dungeon Dice 

This utility allows you to choose the number of dice you want to roll 
^ and the number of sides per die. You can choose up to 8 dice and up to 

^ 20 sides per die. In addition, it calculates the percentage of the possi- 

W ble maximum score that your roll produces. For people who have 

w played Dungeons and Dragons, the convenience of this program will 

W 
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probably be apparent. For anyone who wants to design a computer 
game with a complex element of choice built in, this can be a useful 
game subroutine. 

Here is an example of what the program can do. Suppose you 
choose to roll five 10-sided dice. The computer will print out the 
results on each die and then tell you the percentage of the maximum 
score that your roll achieved. (In this case the maximum is 5*10=50.) 
Here is a possible roll: 

DIE 1 2 3 4 5 

SCORE 57391 

PERCENT AG E= (T OT AL/50) *100=25/50*100=50% 


10 REM *** DICE *** 

100 CR=49152:CY=CR+10S CX=CY+1:G0SUB900 
110 P0KE53280,0:P0KE53281,O:PRINTCHR*(14 
7);CHR$<5> 

120 DIMD$(26):F0RT-1T026:READK:D$=D*+CHR 

*<k>:next 

130 P0KE54296,15:P0KE54277,O:P0KE54278,2 
40 

200 G0SUB500:X=2:Y=6:G0SUB800:INPUT"HOW 

MANY DICE (1-8) 11 ; N: IFN< 10RN>8THEN200 

210 X=2:Y=8:G0SUB800:INPUT"HOW MANY SIDE 

S (4-20) 11 ; S: IFS<40RS>20THEN210 

220 P=S*N:N=N-1:G0SUB500 

230 X=8:Y=19:G0SUB800:PRINT"PRESS SPACEB 

AR TO R0LL":X=6:Y=2l:G0SUBS00 

240 PRINT 11 PRESS RETURN TO CHANGE DICE":Z 

=20—((N+l)*2) 

300 GETK*:IFK*=CHR*(13)THEN200 
310 IFK*<>" "THEN300 

320 FORJ =0T01NT(RND(1)*3)+2:C=0:FORT=OTO 
n:x=z+t*4:y=7:gosubboo 

330 R=INT(RND(1)*S)+1:R*=STR*(R):R*=RIGH 
T*(R*,LEN(R*)-1):PRINTDS5R* 

340 P0KE54276,33:P0KE54273,T*10:C=C+R:FO 

ro=itoio:next 

345 P0KE54276,O:NEXT:NEXT:PQKE54276,0 

350 x=is:y=13:gosub800:print ,, total: "sc; 

CHR*(157)i" ":x=12:Y=14:G0SUB800 

360 PR I NT 11 POSSIBLE: "jp?” “ : x»iO: Y=15S 6 

0SUB800 

370 PRINT U PERCENTA8E: n ;lNT(C/P»100);CHR 
* (157) ; um /m n :boto 300 

500 PRINTCHR*(147);:X=10:Y=2:G0SUB800:PR 
I NT 11 DUNGEON DICE ROLLER H : RETURN 
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800 POKECX,X:PQKECY,Y:SYSCR:RETURN 
900 FQRBYTE=CRT0CR+9:READA:POKEBYTE,A:NE 
XTSRETURN 

910 DATA24,174,10,192,172,11,192,76,240, 
255 

920 DATA 176,195,195,238,157,157,157,157 
,17,194,32,32,194,157,157,157,157,17 
930 DATA 173,195,195,189,157,157,157,145 
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Circle and EC&pse 

Drawing a circle in BASIC is difficult and time-consuming. Drawing 
an ellipse is almost impossible. Here is a program that draws two 
circles, one big and one small, as well as two ellipses that also differ in 
size. These programs use the trigonometric functions SINE and 
COSINE and make it possible to be much more accurate in drawing 
curves on a TV or monitor screen which cannot actually draw con¬ 
tinuous lines but depends on discrete points called pixels for its 
images. A way to experiment with these programs is to separate them 
and change all of the parameters in each miniprogram separately. If 
you do animation or try to create interesting visual formats for your 
programs, you might find these subroutines very useful. 
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10 REM *** CIRCLES 8c ELLIPSES *** 

100 CR=49152S CY»CR+10:CX=CY+1:G0SUB900 
110 P0KE53280,0:P0KE53281,0:PRINTCHR* <14 
7);CHR«<5> 

120 REM *** CIRCLE *** 

130 PRINTCHRS(147)$CHR»(18); 

150 A=A+.28: X= INT(SIN(A)*5+20): Y=INT( 
COS<A)*4+12): GOSUB 800:T=INT(RND(1)*8) 
160 PRINTCHR*(C(T))5" "55 BETK*:IFK*=""TH 
EN150 

200 REM *** BIG CIRCLE *** 

210 A=A+.28:X-INT(SIN(A)*9+20):Y=INT(COS 
(A)*8+12):G0SUB800:T=INT(RND(1)*8) 

220 PRINTCHR$(C(T))5" " 5: GETK$: I FK*=* "" TH 
EN210 

300 REM *** ELLIPSE *** 

305 PRINTCHRfc(147);CHR$(18)S 

310 A=A+-28:X=INT(SIN(A)*6+20):Y=INT(COS 

(A)*3+12):G0SUB800:T=INT(RND(1)*8) 

320 PRINTCHR* (C (T)) J " " 5: GETK$: IFK$=" 11 TH 
EN310 

400 REM *** BIG ELLIPSE *** 

410 A=A+.28:X=INT(SIN(A)*13+20):Y=INT(CO 
S(A)*8+12):G0SUB800:T=INT(RND(1)*8) 

420 PRINTCHR* (C (T)) 5 " " 5: GETK*: IFK*=" 11 TH 
EN410 

430 GOTO120 

800 POKECX,X:POKECY,Y:SYSCR:RETURN 

900 F0RBYTE=CRT0CR+9:READA:POKEBYTE , A: NE 

XT 

905 F0RT=*0T07: READC (T): NEXT: RETURN 

910 DATA24,174,10,192,172,11,192,76,240, 

255 

920 DATA 5,28,159,156,30,31,158,129 
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The Simple Averager 

This program allows you to average numbers. As you enter a list of 
numbers, it gives you a running average and a count of how many 
numbers you have entered. It is convenient for averaging school 
grades, income, or in the climate we come from, daily rainfall. 
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10 REM *** AVERAGER *** 

100 PRINTCHR*<147):PRINT:PRINT" 

SIMPLE AVERAGER":PRINT:PRINT 
110 PRINT"ENTER VALUES - PRESS RETURN TO 
CLEAR":PRINT:PRINT:PRINT"AVERAGE:"; 

120 IFC>OTHENPRINTINT(T/C*100)/100; 

130 PRINTTAB<24>;"VALUES:"5C:PRINT:PRINT 
:PRINT:A*="":INPUTA*:IFA$=""THENRUN 
160 N=VAL(A*):T=T+N:C=C+1:GOTO100 



The Egg Timer 

It's not very likely that you have your computer in the kitchen or that 
you'll use it to time your eggs. However, a timing program is a very 
convenient insert into other programs or to use to remind you to 
make a phone call or wake up from a nap. Actually, there are even a few 
kitchen computer freaks who do use their computers to time their 
eggs. 

In this program you enter the number of minutes or seconds 
you want to be timed. The computer will display and count down the 
time, emitting a sound (hopefully pleasant) when it reaches 0. If you 
want, you can change that sound to a Bach fugue or a Mozart sonata. 
Just set up a subroutine at line 300 and set to work programming the 
music of your choice. 





10 REM *** EGG TIMER *** 

100 S0=54272S CR=49152S CY=CR+10:CX=CY+1S G 
0SUB900:G0SUB400:Y=14:Y=6:G0SUB800 
110 P0KE53280,OSP0KE53281,OS PRINTCHR*(5) 
SPOKESO+24,15 

120 PRINT "SET TIMER.X=2:Y=10:G0SUB80 
OS INPUT“MINUTES"5 MS Y=12 

130 G0SUB800:INPUT"SECONDS";S:IFS<00RS>5 
9THEN130 

140 G0SUB400S X=19—LEN(STR$(M)):Y=7:G0SUB 
800:PRINTM;CHR$(157);": "5 
150 IFS<1OTHENPRINT"0"5 

160 PRINTRIGHT*<STR* <S),LEN <STR$(S))-1)S 
x=15:Y=10S G0SUB800:PRINT"PRESS <F1>" 

170 GETA*:IFA*<>CHR*(133)THEN170 
180 POKE162,0SG0SUB800SPRINT" 

190 X=19-LEN<STR$(M>)SY=7SG0SUB800SPRINT 

M 5 CHR* <157IFS<1OTHENPRINT"O"5 

200 PRINTRIGHTfc<STR$(S),LEN<STR$ <S))—1) 

210 IFPEEK(162)<60THEN210 

220 P0KE162,OS S=S-1SIFS<0THENS=59S M=M-1S 

IFM<0THENX=14SY=10S G0T0300 

230 GOTO190 

300 P0KES0+4,33S F0RT=0T0255STEP5S POKESO+ 

i, t:next:pokesq+4,o:gosubsoo:q=i-q 

310 P0KE53280,<1-Q>*11:IFQ=0THENG0SUB800 
SPRINT" 

320 IFQ=1THENG0SUB800:PRINT"PRESS ANY KE 
Y" 

330 GETA$:IFA$=""THEN300 
340 RUN 

400 PRINTCHR*(147)5 CHR*(5):X=9:Y=3:GOSUB 
800:PRINT"*** THE EGG TIMER ***":RETURN 

799 STOP 

800 POKECX,X:POKECY,Y S SYSCR:RETURN 

900 F0RBYTE=CRT0CR+9S READA:POKEBYTE,A:NE 
XT:PQKESO+5,0:P0KES0+6,240:RETURN 
910 DATA24,174,10,192,172,11,192,76,240, 
255 


r\ 

O 

n 

r\ 

r 

r 

r 


r 


rs 

n 

n 

rs 

r\ 

r 

r 

rs 

r> 

r^ 
r 
cs 
rs 
r 

r 

o 

r 

r 

r 

rs 

rs 

r 

rs 

rs 

n 

n 

r 


104 



38 


Ifte WAse Shopper 

This program converts the price of a product to its price per ounce or 
per gram which is useful for comparison shopping. Sometimes, big 
boxes contain a lot of empty space and buying by unit weight can 
save you money. To use the program, enter the product's total price 
and then choose ounces or grams before you enter the product 
weight. 


10 REM *** THE WISE SHOPPER *** 

100 CR=49152:CY=CR+10:CX=CY+1:S0SUB900 
110 P0KE532B0,0:P0KE53281,0:PRINTCHR*(14 
7);CHR*(5) 

120 PRINTCHR*(147)5:PRINT:PRINT" * 

** THE WISE SHOPPER ***" 

130 PRINT:PRINT:PRINT:INPUT" TOTAL PRODU 
CT PRICES "SP 

140 B0SUBB50:PRINT:PRINT:PRINT"WEIBHT in 
(1) OUNCES OR (2) BRAMS." 

150 BETK*:IFK*< >"1"ANDK*< >"2"THEN150 
160 K=VAL(K*):W*=“OUNCES":IFK=2THENW*="B 
RAMS" 

170 PRINT:PRINT"ENTER THE WEIBHT IN “5W* 
;:INPUTW 

180 IFK=1THENB=INT(28.35*W*100)/100 
190 IFK=2THENB=W:W=INT(B/28.35*100)/100 

200 PRINT: PR I NT "OUNCES."JW:PR 

INT"PRICE PER OUNCE..."SINT(P/W*10000)/l 
005"CENTS." 

210 PRINT:PRINT"BRAMS."SS:PR 

INT"PRICE PER SRAM...."; 

220 T=INT(P/B*10000)/100:IFT=OTHENPRINT" 

__ II 

230 IFT<>OTHENPRINTT5"CENTS." 

240 PRINT:PRINT:PRINT" PRESS A 

NY KEY" 

250 BETK*:IFK*=""THEN250 
260 RUN 

BOO POKECX,X:POKECY,Y:SYSCR:RETURN 
850 PRINTCHR*(147)S:PRINT:PRINT" * 

** THE WISE SHOPPER ***" 

860 PRINT:PRINT:PRINT:PRINT"TOTAL PRODUC 
T PRICE: “SP:RETURN 






900 F0RBYTE-CRT0CR+9:READA:POKEBYTE,A:NE 
XT:RETURN 

910 0ATA24,174,10,192,172,11,192,76,240, 
255 



Metric Converts 


This is a simple conversion utility. It allows you to convert the fol¬ 
lowing pairs into each others units of measurement: centimeters/ 
inches; meters/yards; and kilometers/miles. 

10 REM *** METRIC *** 

100 PRINTCHR*<147):PRINT:PRINTTAB<11)5"M 
ETRIC CONVERSIONS" 

110 PRINT:PRINT:PRINT:PRINT"1. CENTIMETE 
R TO INCH":PRINT"2. METER TO YARD" 

120 PRINT"3. KILOMETER TO MILE":PRINT"4. 

INCH TO CENTIMETER" 

130 PRINT"5. YARD TO METER":PRINT"6- MIL 
E TO KILOMETER" 

140 GETA$:A=VAL(A*>:IFA<10RA>6THEN140 
150 PRINT:PRINT:0NAG0TQ160,170,180,190,2 
00,210 

160 INPUT"CENTIMETERS"5 A:A=A*- 394:PRINT: 

PRINT"INCHES:"a:G0T0300 

170 INPUT"METERS"5 A:A=A*1.094:PRINT:PRIN 
T"YARDS:";A:G0T0300 

180 INPUT"KILOMETERS"5 A:A=A*- 621:PRINT:P 
RINT"MILES:"3 A:G0T0300 

190 INPUT"INCHES"3 A:A=A*2.538:PRINT:PRIN 

T"CENTIMETERS:"3 A:G0T0300 

200 INPUT"YARDS"3 A:A=A*.914:PRINT:PRINT" 

METERS:"3 A:G0T0300 

210 INPUT"MILES"3 A:A=A*1- 609:PRINT:PRINT 
"KILOMETERS:"3 A 

300 PRINT:PRINT:PRINT:PRINTTAB(8)"PRESS 
ANY KEY TO CONTINUE" 

310 GETA$:IFA$=""THEN310 
320 RUN 


Here are the lines where the conversion formulas are stored. You can 
change them if you want to provide other conversions such as pounds 
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into ounces (using the formula OUNCE=POUND*16), Fahrenheit 
into Centigrade, tons into pounds, yards into feet, etc. 

no print:print:print:print" i. centimete 

R TO INCH M :PRINT M 2. METER TO YARD” 

120 PRINT"3. KILOMETER TO MILE":PRINT"4. 

INCH TO CENTIMETER" 

130 PRINT"5. YARD TO METER":PRINT"6. MIL 
E TO KILOMETER" 

140 GETA*:A=VAL(A*):IFA<1ORA>6THEN140 
150 PRINT:PRINT:0NAG0T0160,170,160,190,2 
00,210 

160 INPUT“CENTIMETERS";A:A=A*.394:PRINT: 

PRINT"INCHES:"a:G0T0300 

170 INPUT"METERS"5 A:A=A*1.094:PRINT:PRIN 
T"YARDS:" ; a:G0T0300 

1G0 INPUT"KILOMETERS"5 A:A=A*.621:PRINT:P 
RINT"MILES:"S A:G0T0300 

190 INPUT"INCHES";A:A=A*2.53S:PRINT:PRIN 
T"CENTIMETERS:";A:G0T0300 
200 INPUT"YARDS";A:A=A*.914:PRINT:PRINT" 
meters :"5 a:G0T0300 

210 INPUT"MILES"5A:A=A*1.609:PRINT:PRINT 
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^ Decimal/Hex/Binary Conversion 

W 

This program is very useful for people who work with computers. It 
w converts numbers from the binary, decimal, and hexadecimal (base 16) 

number systems into equivalent form in the other systems. You can 
w start with any of the three systems and get the equivalent in the other 

^ two systems. In case you are not familiar with some of these systems 

O of numeration, here is a summary of how they work: 



w 

w 

w 

w 

w 

w 

w 

w 


Base 10: Symbols 01234 5 6 7 8 9 


The base 10 system is the one we all learn first. It has ten symbols and 
uses the powers of ten to change place value. Thus, counting in base 
10 goes as follows: 
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1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17 

Note that once all the symbols are used up you move over one place 
(from 9 to 10). The powers of ten that are given in the following chart 
determine the values of the symbols: 

10 3 10 2 10 1 10° 

1000 100 10 1 

Thus, the number 1234 actually means: 

MO 3 +2*10 2 +3*10 1 +4+10° =1234 

You might remember learning this in fifth or sixth grade though most 
people usually forget it quickly since they don't need to know it in 
order to calculate. However, when you move from one base system 
into another the question of place value is crucial. 

Base 2x Symbols 0 1 

There are only two symbols in base 2: 0 and 1, which is why it is so 
important for computer programming. Every computer is a complex 
and well-organized collection of ON and OFF switches that can be 
represented by 1 (ON) and O(OFF). The language your computer under¬ 
stands is base 2 machine language and everything you type in has to 
be translated into a base 2 system before the computer can process it. 
Base 2 functions structurally like base ten. It uses place values only 
they represent powers of 2 instead of powers of 10. Here are the values 
of the first four places in a base 2 number system: 

23 2 2 2 1 2 ° 

value 8 4 2 1 

Here are the numbers from 1 to 10 in base 2: 

1 , 10 , 11 , 100 , 101 , 110 , 111 , 1000 , 1001 , 1010 

To understand this, let's take a closer look at 10 which is represented 
in base 2 as 1010 and translate it to base 10: 
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101 0=1 * 2 3 + 0 * 2 2 + V 2 1 + 0 * 2 ° = 8 + 0 + 2 + 0=10 

Base 2 is a natural language for programming computers. However, 
programming in this machine language is tedious and leads to many 
errors. For example, imagine trying to copy this machine language 
program without making an error or going to sleep: 

1011100010101010 

1100000100011001 

0110010101010101 

1000001001100010 

1111100100010101 

In order to facilitate programming on a level that is close to machine 
language and that runs more quickly than BASIC (which has to be 
translated into machine language internally before it can be RUN by 
the computer) an intermediate code using base 16 (called the hexade¬ 
cimal system) is often used. The reason for this is that four places in 
the binary system (i.e., 2 to the 4th power of 2*2*2*2) equal 16 and, so, 
one digit in the hexadecimal system can represent four in the binary 
system. Here is the hex symbolism. If you want to learn more about 
this you should consult an introductory book that has a chapter on 
assembly language programming. 


Base 16 Number System (HexadedmaC): 

Symbols 012345678 9AB C D E F 

The letters A, B, C, D, E, F represent the base 10 numbers 10, 11, 12, 
13, 14 and 15. 

Counting from 1 to 10 in HEX looks like this: 1, 2,3,4, 5, 6, 7, 8, 
9, A. Here are the HEX place values: 

16 3 16 2 16 1 16° 

values 4096 256 16 1 

Thus 100A in Hex would be: 

1*16 3 +0*16 2 +0*1^ +10*16° =4096+0+0+10=5006 in base 10. 
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Enough of the details. Here is a conversion program which might 
come in handy if you do machine or assembly language programming: 


DECXMAL/HEX/BINARV CONVERSION 

DECIMAL: 245 

HEX 5 F5H 

BINARY: iiueieiB 


ENTER VALUE: 


10 REM *** DECIMAL/HEX/BINARY *** 

100 CR=49152:CY=CR+10S CX=CY+1:GQSUB900 
110 P0KE53280,0:P0KE53281,0:PRINTCHR*(14 
7) 9 CHR*(5) 

120 DIMS (19) :HH*= ,, 0123456789ABCDEF" 

130 D*="0": H*=D*: B*=D* S G0SUB840 

140 F0RT=0T04S READK:H(T)=KS B <T*4> =KS FORJ 

=1T03:READB <T*4+J) 

150 next:next:e*=" 

II 

200 x=2:Y=14:G0SUB800:PRINTED:x=2:Y*14:I 
NPUT"ENTER value: "*T* 

210 L=LEN(T*) : I FRIGHT* <T*, 1) = ,, B"THEN400 
220 I FRIGHT* <T*, 1) = 11 H *' THEN500 
230 D=VAL(T*):D*=T*:IFD >1048575THEN200 
300 R=l:IFD>255THENR=3:IFD>65535THENR=4 
310 H*= H ":K=D:FORT=RTOOSTEP—1:J=INT(K/H( 
T))SK=K-J*H(T) 

320 H*=H*+MID*(HH*,J+l,1):NEXT 

350 R=7:1FD >255THENR=15:1FD >65535THENR=1 

9 

360 b*= m ":k=d:fort=rtoostep-i:j=int <k/b ( 
T)):K=K-J*B<T>:J*=STR*(J) 

370 J*=RIGHT*(J*,1):B*=B*+J*:NEXT:G0SUB8 
40:G0T0200 

400 D=o: c=o: fort=l-itoistep-i:ifmid* <t*, 

T, 1) =*' 1 M THEND=D+B <C): G0T0420 
410 IFMID*<T*,T, 1)<> ,, 0 ,, THEN200 
420 C=C+1:NEXT:D*=STR*<D>:G0T0300 
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500 D=0:c=0:FORT=L—1TO1STEP—1:A=ASC(MID* 

<T$,T,1> >:IFA >64ANDA< 71THENA=A-55:B«5 

510 IFA>47ANDA<5BTHENA=A-48:B=5 

520 IFS05THEN200 

530 8=0:D=D+A*H(C):C=C+1:NEXT 

540 D*=STR*(D):BOTO 300 

800 POKECX,X:POKECY,Y:SYSCR:RETURN 

840 PRINTCHR*(147)5:PRINT:PRINT" *** HEX 

/DECIMAL/BINARY CONVERSIONS ***" 

850 X=l:Y=5:B0SUB800 

860 PRINT" DECIMAL: "5 D*:PRINT:PRINT" 
HEX: ";h*5 m H" 

870 print:print" binary: ";b*5"B":retu 
RN 

900 FORBYTE=CRT0CR+9:READA:POKEBYTE, A: NE 
XT:RETURN 

910 DATA24,174,10,192,172,11,192,76,240, 
255 

920 DATA 1,2,4,8,16,32,64,128,256,512,10 
24,2048,4096,8192,16384,32768,65536 
930 DATA 131072,262144,524288 


Finale 
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A Computer Dating Service 

And now, to end the book (almost) on an up note, here is a very liberal 
dating program. The program is set up to record the answers to 20 
questions after taking your name and phone number and assigning 
you a code number. When you have completed your profile, you can 
store the program on disk. One person a dating program does not 
make. Therefore, you have to gather data from a lot of people before it 
can begin to match their responses and come up with what, from its 
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point of view (really our point of view since a computer does not have 
convictions or sets up criteria for matching), is your ideal mate from 
the available pool. 


80 REM * COMPUTER DATING SERVICE * 

90 DIMNA*(99),PA*(99),Q(99,19),A1(19),A2 
(19),A3(19),Q1*(20),Q2*(20) 

100 CR=49152:CY=CR+10:CX=CY+1:G0SUB900 
110 P0KE53280,0:P0KE53281,OSPRINTCHR*(14 
7)$ CHR$(5)S OPEN15,8,15 

130 B0SUB810SPRINTS PRINTS PRINT"1- ADD A 
PERSON TO DATING POOL" 

140 PRINTSPRINT"2. SELECT PERSON TO DATI 
NG POOL":PRINTSPRINT"3. SAVE DATA BANK T 
0 DISK" 

150 PRINTSPRINT"4. LOAD DATA BANK TO DIS 
K" 

160 GETK$SIFK$=""THEN160 

170 K=ASC(K*)-48SIFK<10RK>4THEN160 

180 0NKG0T0300,200,500,600 

200 G0SUB81OS INPUT"ENTER YOUR I.D. NUMBE 

RS "8N:IFN<00RN>=CTHEN130 

210 PRINTSPRINT"FINDING A DATE FORS"SPRI 

NTNAS(N)S PRINTPA*(N) 
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220 DD=0 S DT=0:FQRT=0T0C-1:TT=0 
230 IFT=NTHEN250 
235 F0RJ=0T019 

240 IFQ<N,A1(J)>=Q<T,A2(J)>THENTT=TT+A3< 
J) 

245 NEXT 

250 iftt>dtthendt=tt:dd=t 
260 NEXT:PRINT:PRINT 

270 PRINT"YOUR IDEAL DATE IS:":PRINTNA*( 
DD):PRINTPA$(DDf:PRINT:PRINT"..PRESS A K 
EY" 

280 GETK$:IFK*=""THEN280 
290 G0T0130 

300 80SUB810:INPUT"ENTER YOUR NAME "JN*: 
NA*(C)«N$ 

310 G0SUB810:INPUT"ENTER PHONE NUMBER "5 
N*:PA$<C)aN* 

320 F0RT=1T020:G0SUB810:PRINTQ1*(T):PRIN 
TQ2*<T> 

330 GETK$:IFK*=""THEN330 

340 K=ASC<K*>-48:IFK<10RK>3THEN330 

350 Q<C,T-1)=K:NEXT 

360 PRINT:PRINTNA*(C):PRINT"YOUR I.D. NU 
MBER IS ";C:F0RT=1T02000:NEXT:C=C+1 
370 GOTO130 

500 0PEN5,8,5,"@0:DATEDATA,S,W":PRINT#5, 
C:FORT=OTOC—1:PRINT45,NAS(T) 

510 PRINT#5,PA*(T):F0RJ=0T019:PRINT#5,Q( 
T,J):NEXT:NEXT:CLOSES:GOTO130 
600 OPENS,8,5,"O:DATEDATA,S,R":INPUT#5,C 
:FORT=OTOC—1:INPUT#5,NA*(T) 

610 INPUT#5,PA*(T):F0RJ=0T019:INPUT#5,Q< 
t, j): next:next:closes:G0T0130 
800 pokecx,x:pokecy,y:syscr:return 

810 PRINTCHR*(147)," ":PRINT:PRINT" 

COMPUTER DATING SERVICE":PRINT:PRINT: 
RETURN 

900 FORBYTE=CRT0CR+9:READA:POKEBYTE,A:NE 
XT 

920 F0RT=1T020:READQ*,T$:Ql*(T)=Q$:Q2*(T 

)=t*:next:fort=otoi9 

930 READA1<T),A2<T),A3(T):NEXT:RETURN 
950 DATA24,174,10,192,172,11,192,76,240, 
255 

960 DATA ARE YOU (1)MALE (2)FEMALE (3)BO 
TH, 

965 DATA DO YOU WISH TO DATE A (l)MALE,( 
2)FEMALE (3)BOTH 

970 DATA ARE YOU (1)YOUNG (2)MIDDLE-AGED 
,(3)OLD 

975 DATA IS YOUR IDEAL DATE (1)YOUNG,(2) 
MIDDLE-AGED (3)OLD 


W 
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980 DATA HOW ATTRACTIVE ARE YOU (l)EXTRE 
MELY,(2)MODERATELY (3)NOT VERY 
985 DATAHOW ATTRACTIVE 18 YOUR IDEAL DAT 
E,(1)EXTREMELY (2)MODERATELY (3)NOT VERY 
990 DATA WHERE WOULD YOU LIKE TO GO ON A 
FIRST,DATE (DMOVIE (2)DANCING (3)MOTEL 
995 DATA ARE YOU AN (1)OUTDOOR PERSON,(2 
)INDOOR PERSON (3)BOTH 

1000 DATA HOW IMPORTANT IS SEX (l)VERY,( 
2)FAIRLY (3)NOT VERY 

1010 DATA ARE YOU ARTISTIC (DYES (2)NO, 
(3)SORT OF 

1015 DATA WOULD YOU LIKE YOUR DATE TO BE 
,ARTISTIC (DYES (2)NO (3)SORT OF 
1020 DATA HOW DO YOU FEEL ABOUT KIDS,(1) 
LOVE THEM (2)HATE THEM (3)BOTH 
1025 DATA DO YOU ENJOY ALCOHOL OR DRUBS, 
(DYES (2)NO (3)SOMETIMES 
1030 DATA WHICH TYPE OF MUSIC DO YOU LIK 
E MOST,(1)CLASSICAL (2)ROCK (3)COUNTRY 
1035 DATA HOW MUCH TELEVISION DO YOU WAT 
CH,(1)A LOT (2)SOME (3)VERY LITTLE 
1040 DATA ARE YOU (1)WEALTHY (2)DOING OK 
,(3)SETTING BY 

1045 DATA IS YOUR IDEAL DATE (1)WEALTHY, 
(2)DOING OKAY (3)SETTING BY 
1050 DATA ARE YOUR HABITS (1)UNHEALTHY,( 
2)HEALTHY (3)NO HABITS 

1055 DATA ARE YOU USUALLY (1)HAPPY (2)UN 
HAPPY,(3)BOTH 

1060 DATA IS YOUR IDEAL DATE USUALLY (1) 
HAPPY,(2)UNHAPPY (3)BOTH 
1065 DATA 1,0,50,0,1,50,3,2,25,2,3,25,5, 
4,25,4,5,25,6,6,50,7,7,50,8,8,50,10,9 
1070 DATA 25,9,10,25,11,11,25,12,12,50,1 
3,13,25,14,14,25,16,15,25,15,16,25,17 
1075 DATA 17,25,19,18,25,18,19,25 
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Notice that the questions are all listed in the following data 
statements: 
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960 DATA ARE YOU (1)MALE (2)FEMALE (3)BO 
TH, 

965 DATA DO YOU WISH TO DATE A (l)MALE,( 
2)FEMALE (3)BOTH 

970 DATA ARE YOU (1)YOUNG (2)MIDDLE-AGED 
,(3)OLD 

975 DATA IS YOUR IDEAL DATE (1)YOUNG,(2) 
MIDDLE-AGED (3)OLD 

980 DATA HOW ATTRACTIVE ARE YOU (l)EXTRE 
MELY,(2)MODERATELY (3)NOT VERY 
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983 DATAHOW ATTRACTIVE IS YOUR IDEAL DAT 
E,(1)EXTREMELY (2)MODERATELY (3)NOT VERY 
990 DATA WHERE WOULD YOU LIKE TO GO ON A 
FIRST,DATE (l)MOVIE (2)DANCING (3)MOTEL 
993 DATA ARE YOU AN (1)OUTDOOR PERSON,<2 
)INDOOR PERSON (3)BOTH 

1000 DATA HOW IMPORTANT IS SEX (l)VERY,( 
2)FAIRLY (3)NOT VERY 

1010 DATA ARE YOU ARTISTIC (DYES (2)NO, 
(3)SORT OF 

1013 DATA WOULD YOU LIKE YOUR DATE TO BE 
,ARTISTIC (DYES (2)NO (3)SORT OF 
1020 DATA HOW DO YOU FEEL ABOUT KIDS,(1) 
LOVE THEM (2)HATE THEM (3)BOTH 
1025 DATA DO YOU ENJOY ALCOHOL OR DRUGS, 
(DYES (2)NO (3)SOMETIMES 
1030 DATA WHICH TYPE OF MUSIC DO YOU LIK 
E MOST,(1)CLASSICAL (2)ROCK (3)COUNTRY 
1033 DATA HOW MUCH TELEVISION DO YOU WAT 
CH,(1)A LOT (2)SOME (3)VERY LITTLE 
1040 DATA ARE YOU (1)WEALTHY (2)DOING OK 
,(3)GETTING BY 

1043 DATA IS YOUR IDEAL DATE (1)WEALTHY, 
(2)DOING OKAY (3)GETTING BY 
1050 DATA ARE YOUR HABITS (DUNHEALTHY,( 
2)HEALTHY (3)NO HABITS 

1035 DATA ARE YOU USUALLY (l)HAPPY (2)UN 
HAPPY,(3)BOTH 

1060 DATA IS YOUR IDEAL DATE USUALLY (1) 
HAPPY,(2)UNHAPPY (3)BOTH 


The liberality of the program shows in the very first question. It 
allows for you to be male, female, or both. The second question allows 
you to date the sexual preferences of your choice. Of course, you 
might feel this program goes too far. All you have to do is list the data 
statements and change them to suit your own ways of looking at the 
problem of finding a best mate or date. Just be sure that each change 
you make goes on one data line. The weighting factors built into the 
program can also be changed if you have some programming expe¬ 
rience. You'll find them in lines 1065 to 1075. 
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1/2 of Many Things Tou Can 
Do With Tour Computer 

You can use the programs as they are listed in this book. You can also 
consider them program forms that provide a framework for develop¬ 
ing new programs on your own. Here are a number of ideas that take 
off from the 41 programs we have worked out. They provide you 1/2 
of what you need to develop applications for your computers. The 
other half, the new programs themselves, are for you to work out. 


1 An Att-Purpose Instrument Timer 

One of the programs in this book provides a guitar tuner. Using the 
sound capabilities of your computer, you can also create a saxophone, 
clarinet, violin, fiddle, trumpet, or all-purpose instrument tuner. 
Instead of string diagrams, you would have to suit the graphics to the 
nature of the different instruments and, therefore, have many differ¬ 
ent graphics screens in your program. 


2 A Music Tutor 

This program would extend the notion of a guitar chord tutor. It could 
show the fingering of woodwinds, the valve positions on brass, etc. 
You could even develop an extensive music teaching program. 
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3 A Game Spinner 


You can use some of the same ideas used in the Dungeons and 
Dragons dice maker to create a game spinner. The spinner differs 
from a usual die in that it can have the same values on different 
sections, or it can have verbal instructions or game moves on it. 
Different sections can also be weighted so that there is not the same 
probability of getting each possible result. Here is an example of what 
a spinner might look like: 



On the sample spinner there is a greater chance of landing in jail 
than collecting money. Notice that the instructions on the spinner 
refer to game moves and to paying or collecting money. These differ¬ 
ent modes and weights can easily be incorporated into a customized 
game spinner program. 


r 
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4 A SpQi Screen Note Potf 

Try to create a note pad that splits the screen in half so that you can 
write on either half, or write on one half and make sketches and notes 
on the other half. Try to build in a way to press a letter or number 
which allows you to control which part of the screen you use. 

5 A Caiadator with Memory 

Add a memory storage capability to the calculator program so that 
the results of any calculation can be stored and then used at another 
time. 


6 Animated Guessing Games 

Modify the Gestalt guessing game so that you see small figures run¬ 
ning all around the screen and have to guess how many there are. 
Remember that animation can easily be done using Control graphics 
and clearing the screen after each positioning of your figures. When 
you draw a figure, clear the screen and then draw the figure in a 
slightly different position or posture you create the illusion of 
animation. 


7 Mandate Meditation 

Create your own meditation programs playing with the color function 
of your computer. Add sound to the program and see if you can create 
a multimedia work of art. 


8 Pie Chart and line Graph Generator 

The bar graph generator presented in the book is only one of many 
graph forms that can be programmed. Try to make a line graph. 
(Remember that the bar graph can easily be turned into a line graph 
by turning it on its side and drawing lines from the top points.) Also 
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create a pie graph generator. A pie graph generating program can also 
be used in a game spinner generating program. 
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9 Multiple Sorting Address Card File 

Modify the address file program so that you can sort by state, city, 
phone number, and comments as well as by name. What this requires 
is that you build routines similar to the one used in the program in 
this book to do name sorting for each line in the address book entry. 


10 Profile Mug Shots 

Using character graphics, change the Mug Shot program from one 
that uses full faces to one that uses profiles. 


11 Multilingual Dictionary 

Create a multilingual dictionary. For example, create a dictionary in 
five languages. Set up the program so that you have a few entries to 
begin with (for example all the pronouns in five different languages) 
and then new entries can be added and saved on disk. This way you 
will not merely have a multilingual dictionary but a dictionary form. 
As you learn more vocabulary, you build your dictionary. Many of the 
routines needed to create such a program can be taken from programs 
listed in this book (the disk storage routine, for example). 


12 Prime N umber Generator 

Create a program that starts at 1 and lists the first n prime numbers 
for any integer n. Add another routine to the program in which you 
input any integer and the computer tells you whether it is prime or 
not. 
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13 Least Common Denominator 

Here is another homework helper program. Set up the computer so 
that it will list all the common denominators of any two or three 
numbers and also list the least common denominator. 


14 A Book Title Generator 

We included an excuse generator in our 41 programs. See if you can 
create a book title generator using some of the common book title 
forms such as: 

A.(1).in the.(2). 

List (1) List (2) 

flash pan 

day life 

scream wilderness 

giving such variations as 

A Flash in the Wilderness and 
A Day in the Pan. 

Some other title forms to play with are: The 
.(2).and To .(1).a ... 

15 A Code Maker 

Create a program that will scramble the whole alphabet (instead of 
just a word as in our Word Scrambler) and then turn that scrambling 
into a code. The program should let you put in a word or sentence and 
give you the coded version. It should also let you put in a message in 
that code and translate it back into English. 


... (1) of the 
( 2 ). 
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41% FUN PROJECTS FOR THE COMMODORE 64® 

Dale Disharoon & Herbert Kohl 


Do you remember the day you brought your shiny new 
Commodore 64 home? What an exciting time! At first it seemed 
as if you could think of thousands of ways it would make your 
life easier, better, and more fun. However, if you’re like most 
people, as the months rolled by and the novelty of owning a 
computer subsided, routine chores slowly replaced that initial 
anticipation. 

41V2 FUN PROJECTS FOR THE COMMODORE^ gives 
you back that wonderful excitement. One of the first Creative 
Pastimes books, from the Reston Computer Group, this 
fantastic book shows you 41 l /2 good reasons to fall in love with 
your Commodore all over again. 

In a burst of creative energy, Dale Disharoon and Herbert 
Kohl deliver some fresh ideas that you’ll find easy to key in 
and modify. The 4VA projects range all the way from a 
dating program to a mini word processor. You’ll be 
absolutely obsessed with a Dungeons and Dragons dice 
rolling program, and you’ll probably want to take full 
advantage of the innovative strategy and music games^ 
Practically speaking, programs such as a guitar tuner 
and chord teacher, a metric converter, and a 
comparison shopping program truly make your life easier. 


A Creative Pastimes Book 

RESTON PUBLISHING COMPANY, 

A Prentice-Hall Company 
Reston, Virginia 
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